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导 言 

Arrstrad cpc 46.4 有一个设计良好速度快，功能强的 
Basic 改写木，对于初学穿，它可能相当复杂，对于习惯于 
其它 BASIC 方言的人，可能会觉得难于适应 Arrstrad , 本书 
是为那些希控扩充己在 Amstad 上设计 BASIC 程序的知识 
和技巧的人编 C 的，在解释每条 BASIC 命令的同时，本书详 
细描述了有用的程 r , 设计杉术。这些技术使复夯的朽序写 
起來很容易并可节咨运行时间和存贮空间。 

木书中冇.许多程序淸 ¥' ，其中一峡是例-了或从文本中摘 
录的蜇点文件，另-些则是标准结柃，你可证过这些结构来 
编制你自己的程序。 

第1〜3贲介绍了在 Amstrad 上进行程序设 计的基 本概 
念。经常使用的数组和程序设计抆术在第4章中说明,此竟 
的末尾，•列出了一个简#的数据库，第5章说明如何月] 
Basic 命令建立游戏。第6章解释十进制，二进制和]6进制 
数的关系，叼明也说明布尔代数和信总如何通过位形译 码。 
第7 京介绍了机器码和汇编语言程序设计，并.包括几个有用 
的子程序。第8、9两章说明了 ArastradU 形系统是如佝操 
作的。 JiUC 彦说 n 刀声苦的产汴，如何给乐曲标音并展示了 
Amstrad 的一拄独冇的功能。第11竜说明右盒式磁带初上记 
录程序，数据或屏菘图形。第12章讨论 Basic ! 的中断和提示 
方法，你可使用这些6注改进你的程序。 




第一章入门 

立即方式和延迟方式 

你可以通过从铁’盘 S 接锭入命令来指示你的 Amstrad 
进行计算，显示字或划线等操作，这叫做“立郎”或“直 
接”方式。你也可以键入一串这样的命令 （ 一个程序）来让 
计算机执行，这叫做“程序”方式或“延 E ” 方式。你让计 
算机做的大部分操作将是执行程序，因为这个方法能使你恢 
复这些指令供你修改或者把它们存入磁带供以后再用，而用 
直接方式键入的命令则没有这些特点，更重要的茇，程疗能 
使计算机执行一系列 絚杂的 操作，而直接方式的命令则不 
能 。 有一® 命令不能于£接方式，但它1 对于 检查程戶的 
执行 是很仃 川的，这一点我们以后将看到。直接方式的主要 
用处是純入和改变程序中的命令。 

BASIC 词汇 

你的 Amstrad 只认识右限的一组命令或指令。称为 
“ Basic ” 的稃序设计语言就是由这样的一组指令组成的。 
这些 指令是 -些英文词汇 ，如： LET 、 PRINT , LOCA ¬ 
TE , MCDE 等，你可以川这些 IT _. 汇组成一串指令（一个程 
序），这些指令存在 il 算机的存贮器中并能使计算机快速地 
执行复杂的操伶。 

有时，你 也许合 拼错一个词， 例如： 你可能把 PRINT 
键入成 PRNIT 。 因为计算机不认识这个词，.则 显示一个 
“出错信息”，在这 种情况下显牙的出错信息为 “Synstax 
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error ” 。 如果你要计算机执行不可能的操作 ，如: 用零除 
—个数，计算机則产生相应的出错信息，这些将在以后的章 
节中讨论。 


打印 （ PRINT ) 

无论在你的 Amstrsd 中写入了什么程序，你都 希望在 
屛筘上 S 到一些结果。你可能想显示 数字，词或一些有用的 
符号。 我们首先说明控制屏蒞显示的最简单方法。 

甸岱你键入一个合令后，你必须按标筘 ENTER 的大蓝 
键，这就告诉计算机你想执行所过入的命令。我们用 < EN¬ 
TER > 表示这个键。本书中 W 命令都是用大写字母表示， 
实际应用时,也可用小写宇母, Ainstrad 不区分大小写字 
母，。 按标笤 CAPS 的汶，可对大小写字母 if •行转换。 

見示字符（宇母、数字.符号）的最简单方法是使 
用 PRINT 命令。代如： “PRINT 7<3NTER>” 这个 
直接命令将在 M 荇左上角显示出数字7 。 你可 以把你的机器 
做为 il 算祀使 JT: 筘入 “PRINT 7*9 〈 ENTER 〉” ， 
则屛菇显示出6%注穿 ， Basicffl 代替乘，用“/” 

代 替除。如果你键入 “PRINT 13/6 ENTER〉” ， 则在 
屏幕左边显示出: ' 。在命今中，数字和符号间不必键入间 
隔，本书为澄赶起£加入了 h 隔。但命令后必须留一问隔。 
打印分阪符 

你可能会江总旯，3计筇机执行完你的命令后，则在操 
作的结畀的下-行示 “ok” 。 你是否希望 7 *9 和 18/6 的 
结锻在同一行显示哫?符先，你要知道,计算机在屏幕上打 
印丁一苎东西后則把光标移到下行的开始。但是通过使用分 
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(h ” ） ，可很容易得到这个码。为了重新定义一个字 
符，你必须发出两条指令。第一条指令是 SYMBOL AFT ¬ 
ER n , 它告诉计算机，你想把一个 ASCII 码大于几的字符 
重新定义。在我们的例子中，你可使用 SYMBOL AFTER 
31或 SYMBOL AFTERS .2。 祀感叹号重新定义成我们上面 
说的字符，使用的命令是， ‘ SYMB 0 LS 3, 255, 193, 161, 
145, 137, 133, 131, 255。第一个数33是被改变字符的 
ASCII 码。后面的8个数是每行中建立的点的列值之和（图 
2.4)。你一旦重新定义了一个字符，这个字符便以新的面 



列 


图 2. 4为 SYMBOL 命令计算值 
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貌出现，而其它字符则不改变。为了使感叹号或任意一个重 
新定义的字符恢复原状，你必须发出一个 SYMBOL AFT - 
ERn 命令，这里的 n 是任意正整数。 

数字变量和串变量 

在本章的开头，我们讨论了变量。那些都是简单的变 
E , 用于在计算机主存中存 肥数字 。通过程序，我们也可 
把字母、字甚至短句存入 Amstrad 。 数字变量和字符或字 
符串变 量之间 唯一的区别就符串变 fi 用$符号标识。在程序 
或直接命令中你可以使用 ‘LET A $ = “AMSTRADCPC 
464^ ，这样的语句。命令 PRINT A $ 将显示串变量入$所 
对应的一串字符。一个串变 fi 最多可表示255个字符。没有 
赋与字符的串变 a 称为空的。 

有一种方法可使串变量中包含数字，賦值语句 ‘ LET - 
NUMPER ? = “7” 是允许的，但必须认识到，这里的7和 
数字的7是十分不同的，这里的7仅仅是一个符号，而不是一 
个实际的数。 

和数字变量一样，串变 M 可以有较长的名字并且名字不 
能以数字开头。你可以在数据库程序中使用象 NAME $或 
ADDRESS $这样的串变量来存贮有关你朋友或用户的信 
息。你可以对'数字变量和串变量使用同一名字，计算机可以 
区分它们，也就是说你可同时使用 A 和和 
NUMBER $做为变量名。 

你不要混淆串变道和数字变量，否则将显示出错信息 
“Type mismatch ” （类型不符）。象八 = “HELL G ” 
这样的 賦值语句是非法的，因为 “ HELLO ” 是一个字符 
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串，而 A $— 个数字变量，数字变 S 是只能包含数值的。同 
样， WORD ? =45也不允许 。 NAME $ = VALUE 和 pH - 
ONENO = NOMBER $ 也是错的，因为你不能对数 字变量 
和串变 迓交叉 赋值。数字和 T 母是十分不同的数据类型，不 
能把二者混滑，虽然苻办法使它们互相转换。 

憨数和整数变還 

象前面描述的实数变 3— 样， Amstrad 有处理整数的 
功能。此功能的优点是哲存贮器 li 速度快。如采用百分比符 
号（％ )把一个变 G 定义为整数变 fi , 则可节省保存变量的 
存贮器，因为 Amstrad 可以不笪小数以后的部分。由于存贮 
整数所需的空间少，存取整数所川的时问也就少。计算机可 
以区分变 SA 和 A %， 但为荇序洁楚起见，最好使用不同的 
变 E 名。 

整数变量和数字变迳的用法一样，但要记住必须使用被 
数符号％。也耍记住，如果你把一个小数赋给整数变 a , 所 
存入的戗将是不粘确的。另一个限制是益数变1的赋值不能 
超过 -32768 至+ 32768这个范围,否则,将显示出错信息 
息 “ Overflow ”（ 溢出）。 

为了比较整数变 id 和实数变 K 的处理速喫，试运行下面 
的程序: 

1 REM Normal numerin variables 
10 CONST =TIME 
20 FOR COUNT =1 TO 1000 
30 NEXT 

40 CLS ： DURATION = ( TIME-CONST )/47 
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50 LOCATE 0, 10： PRINT“Tliat took”, U D\JR - 
ATiONj 

senoads” 

1 REM Integer numeric variables 
10 CONST = TIME 
20 FOR COUNT% =1 TO 1000 
30 NEXT 

40 CLS； DURATION = ( TIME - CONST )/47 
50 LOCATE 0, 10:PRINT “That took” j DURA 

TIONj “seconds” 

除了整数符 V 外，这两个程序足一杼的。 

定义变！ （ DEFSTR、DEFINT 相 DEFREAL ) 

这三个命令，允许你把一个单字母变 M 名) 作出或盤 
数。最好把这些命令放 么程 序的开头。例如： "DEFSTR 
A, 表示把变 MA 定义为串变 H 。 此命令讨节省存贮空间 
( 因为对于这个变 S, 你不耑要毎、都用$ )。试一试下囬 
的程序： 

10 DEFSTR A 

20 A = “This is a string，’ 

30 PRINT A 
40 DEFINT A 
50 A =32000 
60 PRINT A 
70 DEFREAL A 
80 A = 1.2E-25 
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90 PRINT A 

你可以用这些命令定义一组变 a 名 。 ‘DEFSTR A , 
G , W - Z ，雀示 A , G 及 W 与 Z 之间的字母都定义为串变 
量名。 

你也许要花费 一些时 间来习愤于使用这些命令。对于初 
学者 S 好先不用它们。 
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第三章字符串和键 

输入 （INPUT ) 

你可以在直接方式下键入命令，语句和程序。在程序运 
行期间，能从'雜盘输入也是存用的。这一点在游戏中是非常 
必要的，例如 I 玩游戏的人按一个键启动游戏开始。对于一 
个需要用户键入数据的数据库也足如此。 

在程 序期间 ，从键盘接收字符的命令是 INPUT 。 此命 
令允许输入数字变 a 或串变 a , 它使计算机在屛辎上显示一 
个问号并一直等到用 户键入 一串以< enter /结尾的字 
符 ，然后把这串字符赋与 INPUT 后边的变燈。如果你的程 
序中 有一个 IN’PUr name $； 则尔述入妁名符将赋给串变 
量 name $。 

因为数据类型是不相容的，当 INTUT 后边的变 S 是一 
个串变 M 时,用户键入一个数字足可以的,反之却不行。如 
果你的程序中有指令 ‘INPUT number %用户键入 
/seven < ENTER >，将使程序停止，并显示出错信息 
“Redo from start ”（ 重新开始）。这个信息告诉用户： 
重新建入一个数字，这个错误妁产生是由于字符串不能赋给 
—个数名变 a ， 但; i ， 把数字赋给串变 ii 足可行的，并且这 
一点是很有用的。 

INPUT 本身没冇多大作用，它只是显示一个问号，并 
不能告诉用 A 键入什么，因此盖耍年屏幕上單示 - r 个提示。 
这样做最简单的方法是在 INPUTS 面使用二个 PRINT 语 
句。例如： 
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100 PPINT “piease eater your name ” ； 

110 INPUT name ? 

( 以后我们将不使用 ENTER ，认为你巳经记住 
了）。 

注意，由于 PRINT 语句后而力分号，光标将留在提示 

行中。 

通过扩展 INPUT 语句，你可得到同样的效果： 

200 INPUT “Please enter your name ” j name $ 
或 

300 INPUT “Please enter your name” ， name $ 

在 200 行中，仍然会出现一个问号，但在300行中,逗号 
则把问号删除了。 


IF , THEN 和 GOTO 

IF 、 THEN 和 GOTO 命令允许你对变量等项进行比 
较，并且控制程序执行的 顺序。 

通常，计算机从第一行开始处理程序，按顺序处理到最 
后一行。在第二章说明的 FOR … NEXT 允许循环对一些行 
重复执行多次，这种“改方向”是非常有用的。 

. 假定，你希空程序用一个口令，以便不知道口令的人不 
能使用这个程序。口令可以是数字、字或短语。为了简单起 
见，我们甩 “ secret ” 做口令。你程序的前几行应该是这样 
的： 

10 CLSs INPUT “Please eater the password ” ， 
password $ 

20 IF password ? < > “ secret ” THEN GOTO 10 
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30 PRINT “ OK , let’s get on with the rest of 
the program ” 10 行清屏和打印引号中的提示。然 
后计算机等待，直到用户键入若干个字符。并以< ENTER > 
结尾20行进行判別，如果键入的不是 “ secret ” ， 则使计算 
机跳回10行，逭新 M 示提示并等候输入，直到你键入了正确 
的□令为止。然后计算机执行30行和程序的以后部分，符号 
:.农示“不等”或“不同”，是用于比较变 M 的。 

IF 语句的通常肜式足： IF ( 条件） THEN ( 操作）。 
条件部分比较变 M ， 看其是否相同。操作部分可以是一个 
GOTO 命令， PRINT 语句或其它操作。在 THEN 后面 ，也 
可以有多个语句， 只要 条件成立，这些语句都将执行。例 
如： 

1000 IF reply $ -answer $ TiIEN score = score + 
10 ：LOCATE 

0, 20 ：PRINT “score so for ” j scorej : GOTO 
500 

当你读本书的时候，你将遇到许多 IF … THEN 语句的 
例子并且你会 很快熟 悉它的用法。 

ELSE 

ELSE 可以在 IF … THEN 语句后面使用，意思为“否 
则”。它必须写在与其相应的 IF 语句的同一行。它指示当 IF 
语句不成立时，将做什么。 例如： 

100 IF reply $ = answer $ THEN PRINT ^ Corr - 
ect ” ELSE PRINT “ wrong ” 

在 ELSE 后面也可以有多个语句， 例如： 
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750 IF reply $= answer $ THEN PRINT “ Cor 卜 
ect ” 1 score = score + 10 ELSE PRINT “ wrong ” j : 
score =score — 5 

在一个 IF *“ THEN 语句中使用另一个或多个 IF … THEN 
语句，可以组成复杂的条件语句。例如： 

830 IF a>b THEN q=q + l ： a=b ELSE IF a<b 
THEN q =q-l:b =a 


INKEY $ 

有时你不需要用户键入整个字符串，你只希望按一个 
键。一个典型的网子足：在游戏结束时，程序需要问玩游戏 
的人是否想再玩一次。为此机器显示 “Do you want ano ¬ 
ther go ? Press Yfor yes , N for no ” 或简略地显示 
“Another go ? ... Y / N ” 。 

你可以用 INPUT 语句来显示，但是，你每做一•次选择 
必须按 一 :火< ENTER >是很麻烦的。利用 -1 NKEY $我们 
可以只按一个键 。 INKEY $—个有用的方面是：这个功能 
所识别的字符不在屏蘇上显示。 

由于 Arastrad 可以很决地测试键盘，我 ( 门必须把 INK ¬ 
EY $和正… THEN 及 GOTO 语句结合使用，以便可以等待 
— 个键被按下 。 INKEY $仅测试一;键盘，因此下面的程 
序是行不通的： 

100 PRINT “press .y for yes , N for no ” 

110 response $= INKEY $ 

120 IF response $ = “ Y ” THEN GOTO 10 
130 IF response $ “ N ” THEN END 


24 



在这个例子中,.除非用户在机器执行110行时按了一个 
“ Y ” 或 “ N ” ，否则，程序将顺序执行下去。解决的方法 
是：要使饥器重复执行110行，直到用户按一个键。为此， 
我们增加一行：115 IF response $ = “ ” THEN GO - 

TO 110/, 这表示，如果用户没有按键，叫转到110行。双引 
号“”表示空串。 我们也 必须处理这个事实：用户可能不 
按 “ Y ” ^键或 “ N ” 键。 

完整的程序如下， 

100 PRINT “press y for yes，N for no ” 
l'lO response $ = INKEY $ 

115 IF response $ = “ ” THEN GOTO 110 
120 IF response $ = “ Y”〜THEN GOTO 100 
130 IF response $= THEN END 
140 GOTO 110 

同样，我们也可在 115 行中使用这样的语句 ：IF resp ¬ 
onse $ < > “ Y ” AND response < > “ N ” THEN 

GOTO 110。 


串处理 

Basic 有许多处理字符组和串变量内 容的内 部功能。这 
些功能称为串处理，其中包括 LEFT $, RIGHT $ MID $， 
LEN 和 INSTR 。 前三个产生字符串，后两个回送数字。 
LEFT $ 

LEFT $用于拷贝字符串的左边，例如 ： ‘PRINT 
LEFT ( “ Example ” ，3 ) ，将显示字符串左边的三个字 
母 ‘Exa %如果你对 LEFT $键入了大于字符串长度的数 
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字，如 ‘PRINT LEFT $( “ Example ” ， 9) ，，将 M 
示整个字符串。在 LEFT $中使用数字的唯一限制是不能用 
负数，使用小教则取整数部分，使用0则显示一个空串。上 
面的这些也适用于 RIGHT $。 

RIGHT $ 

这个功能拷贝字符串的右边 ， ‘PRINT RIGHT $ 

(“Second example ” ， 5 )， 将显示字母 “ ample ” 。 
MID $ 

MID $ 比较复杂。它需要一个字符串和两个数字。第一 
个数字是字符从开头数的位置，第二个数字是要拷贝字符的 
拷量。例如 : ‘PRINT MID $( “Third example ” ， 

5 , 4 ) ’将显示 M ex \ 这是从第五个字符开始取的 4 
个字符。同样, ‘ PRINTMID $( “Third example ” ， 
7, 4) ，将显示 “ exam ” 。你也可使用 MID $从一个字符 
串中抽出一个字符。例如 ： ‘PRINT MID $( “One ch ¬ 
aracter ” ，3， 1 ) ’将显示 “ e ” 。 

MID $也可用于在字符串中插入字符。在 Basic 语言 
中，把它作为赋偾语句是非常有用的，也是非常方便的。在 
这种用法中，它出现在等号的左边，并且把它表示的字符串 
加到等号右边的字符串中。例如： 

10 a $ = “The first string ” 

20 PRINT a $ 

30 b $ = “' final ” 

40 MID $( a $， 5 , 5 )4$ 

50 PRINT a $ 

UPPER $?PLOWER $ 
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这两个命令转换字符串的大小写 .， PRINT UPPER $ 
(“ Amstrad ” ），将显示 “ AMSTRAD ” ； ’PRINT 
LOWER $ ( “ Amstrad ”） ，将显示 “ amstrad ” 。 
STRING $ 

STRING $产生一串同样的字符，它需要两个参 数：所 
要重复的字符次数和 ASCII 码值或•应的串变量。它最普通 
的用处是产生一个花边，例如： 

10 MODE 0 

20 PRINT STRING $( 20, “ A ”） 

30 LOCATE 0, 25 :PRINT STRING $ (19, 
67 ), 

40 man $ =CHR $ ( 249 ) 

50 LOCATE 0， 2 *PRINT STRING $( 15, 
man $ ) 

注意,在 20 行中 STRING $所给的字符在引号中，在30行 
中，所给出的足 ASCII 码，而在50行中所给出的是串变 S 。 
在这方面， STRING $足很灵 活的。 

LEN 

LEN 送回字符串的长度。 ‘PRINT LEN ( “A strin ) 
is a group of characters ”） ’将^显示数字33。 （ 记住： 
间隔也是字符）。因为一个字符串不能超过255个字符并且 
—个空字符串不包含字符， LEN 回送的总是0 —255间的整 
数。 

INSTR 

INSTK 是一个特殊的命令，它用于在一个字符串中查 
找另一个字符中，它需要三个 参数： 开始的字符位置，串本身 
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和要查找的字符。 ‘PRINT INSTR( i , “Amst ra d ” ， 
“tra” ） ，将显示数字 4, 因为 “t ra ” 在 ‘父 fcstrad” 中 
的开始位置是4。省略第一参数，则计箅机认为开始位置是1, 
因此上面的例子和 ‘PRINT INSTR(“Amst r ad.”“tra ”） ， 
是一样的。 ‘PRINT INSTR( 5 ， “Amst r ad” ， “tra ”）， 
将送回 0, 因为 “tra” 是在第五个字符以前。你可以使用 
INSTR 来检査是否用户巳键入了一个包含给定词的句子。 
例如： 

980 IF INSTRC reply $, ，’ please ” ）= 0 
THEN PRINT 

“You *11 have to be more polite ” 

例子 

上面讲的所有功能，可以把串龙 a 转变为参数一一你不 
必定义引号中实际的字符串，虽然，我们巳用 P RIN T 来显示 
这些功能的操作，但你也可把适用于一个串功能的结采赋给 
—个串变量'。下面两个例子证明了这 几点。 

10 LET surname $ = “ THATCHER ” 

20 PRINT LEFT $( surname $， 4 ) 

30 PRINT RIGHT $ ( surname $， . 3 ) 

40 PRINT MID $ ( surname $, 2 ， 3 ) 

下面是一个短程序，需要用户键入自己的 全名， 姓和名 
用空格分开，然后把输入字符串分成两个名子。 

10 CLS : MODE 2 

20 LOCATE 0，10 : INPUT “Please type your 
full name , first and last , then ENTER ”， 
full . name $ 
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30 lenSth =LEN ( full.name $ ) 

40 space.pos =INSTR ( full.name $ ，“ ”） 

50 IF space.pos = 0 THEN GOTO 10 
60 f irst.name $ =LEFT $ ( full.name $, space , 
pos - 1 ) 

70 last , name $ = RIGHT $ ( full.name $ $, len ¬ 
gth - space.pos ) 

80 CLS 

90 LOCATE 0, 10 : PRINT “Thank you w jfirst 
name $ 

把 INPUT 、 FOR … NEXT STEP、MID $WLEN 结 
合起来用，我们能使计算机执行象颠倒人名这样的功能。为 
此，我们先清屏，然后让用户键入自己的名字，并且必须提 
示用户这样做。我们可用 INPUT 来产生提示，并且把键入 
的字符存在串变 Mnanie $ 中。为此，可使用下面的程序： 

10 MODE 2 

20 INPUT “Please type in your first name , 
then press ENTER ” name $ 

注意： 上语句中的逗号可使引号不显示。 

下面，我们需要从变量名为 name $的字符串的最后一 
个字母开始循环，你最好使用 FOR … NEXT 循环语句，用一 
个负数的 STER 值向后循环，即从名字的右边到左边。我们 
需要知道字符串的长度以知道最后一个字符的位置，这一点 
可通过 LEN 敝到。下面是整个 程序： 

10 MODE 1 

20 INPUT “Please type your first name , then 
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press ENTER”，name $ 

30 FOR letter = LENC name $ ) TO 1 STEP - 1 
40 PRINT MID $ ( name $, letter , 1 )i 
50 NEXT letter 

注: t : 40 行的分号可使 字母在 同一行打印，并且长变 M 名可 
使程序易愤。 

连接 

连接表示把字符串用加号连在一起，例如： 

10 LET surname $ = “ Jones ” 

20 LET first name $ r - “ David ” 

30 LET first , name $ = first , name $ t + su - 
rname $ 

在 10 行和 20 行 定义的两个字符串在 30 行被连接在一起并赋给 
第三个串变 M 。 注意： 中 间加入 K 空格足为 了把姓和名分 
开。字符串不能相减，但你把 MID $, LEI'T $和 RIGHT 
$联合使用可做到这一点。 

SPACE $ 

SPACE $按给定的长度产生一串空格。 例如： ‘ alo - 
ngblak $ = SPACES ( 250 ) ，。 注意: 括号中的字 不能超 
过255。一个非文件功能 SPC 可以同 PRINT — 起使用，但是 
括号中的数 字是以40为校的。 因此， ‘ PRINT SPC 
(89) ，将产生0个空格。因为 SPC 只能和 PRINT —起使 
用， 你不能象 SPACES — 样使用它 。/ LET along $=SPC 
( 250 ) ，将显示一个出错信息 “syntax error ” （句法 
错）。 
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数据类型转换 

STR 这两个功能可以把字符串和数字互相转 

换。 

STR $ 

STR $川于把数字转变成对应的字符串。数字不能直接 
赋给氓变 M ， ‘LETa $ = 7 ，是一个非法命令并且产生出 
错信息。但足 STR 以把数字连同正数前面的空格和负 
数前面的 减号一 起赋给一个串变3。例如 ： ‘LETa $=STR 
$ ( 7 ) * o 括号中的参数可以是数字变 fi , 例如 ： ‘LET 
value =19 : namber $ =STR $ ( value ) ’。 

VAL 

VALlii ] 送 - r 个字符串的位，它检査字符串或串变 M 的数 
字内容并产生一个数宇。例如 ： ‘PRINT VAL ( “12 
3 ) 回送数字 123。 ‘PRINT VAL ( “12 A 3”） ，回送 
12。如果字符串以符号&开头， VAL 则把字符串的其余部 
分算成 16进制数 。 ‘PPINT VAL ( “& A )”， 和 * PR - 
INT VAL ( “&” + chr $ ( G 5 ) ，都将产生数字 10,因 
为字母 A 在16进制屮表示为10。 

特别冇川的纪， VAL " J •把 M 过 INKEY $得到的单.字母 
键入忖换成数字，例如： 

10 MODE 1 

20 LOCATE 0,3 •• PRINT “Please press a nu ¬ 
mber between I and 

30 akey $ = INKEY : IF akey $ = ‘‘ ” THEN 30 

40 number = YAL ( akey $ ) 
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50 IF number = 0 THEN 10 
60 LOCATE 0, 7 

70 P P N I T “That number squared is’’ 軎 numher 
* uumher 

{ r 这个例子中， _ t •方 通过敛 imv 乘来计兑。另一个 
方法足使州乘方符号:上箭头和数字2。例如 : ‘square = 
number t 2。这个符号也可川于立方等。 

—些玆字处理操作 

RND 

生迕多 fU . M , -1、随机数足非常 Jil 

的。 Amstrad 存这样的功能,你为 RND 。 它回辽0 . jiU 之 
间的滋机效，因此如采你想得到较大的数,必须对结采做乘 
法.例如 : 'LET random = RND (1) *10 , . 这将产生 0 
到 9. 99999999之间的数。为丁把这些数转变为整数，你可以 
使; LINT ， ROUND , 或 ' FIX 。 

NT 

INTii 2 — 个带有小数的数转货为盤数 。 'PRINT INT 
( 3.3 ) 和 'PRINT INT ( 3.6 ) 都产生3。 

FIX 

FIX 处埋! i £ 数 fi!INT - 样，但处理负数 得出的 值火于 JH 

INT 处理的负数沿 。 

ROUND 

尺01^0对于数字的小数 部分进 行四舍五入， 'PRINT 
ROUND (3.3) / 将产生 了, 'PRINT ROUND (3.6 ) , 将产 
生于 



为了得到 1 至 6 之间的随机数，你可以使用下列 程序： 
100 LET random. nuraber=RND( 1 ) * 5 
110 LET random, number = random, number + 1 
120 LET random, number = ROUND (random, 
number ) 

100 行把 0 和 4.99999999 之间的值赋给变量 random, numb¬ 
er 7 . 110 行把这个值加 1, 使其成为 1 至 5 . 99999999 之间 
的值 。 120行把这些值取为1至6之间的数。这三行可以缩 
为一行 I 

100 random, number = ROUND ( ( RND (1) * ) 

+ 1 ) 

如果使用 INT , 则为: 

100 random, number = INT ( RND ( (1) *6)+1) 

REM 浯句 

REM 丧示注释，它在程序中使用可使程序易懂。它可 
州在程序的任何地方，计算机并不执行它，例如： 

10 REM sample program 
20 REM 

30 REM Initialise variables 
40 score = 0 * max. goes =10 

50 REM max. goes is the highest number of 
’turns’ allowed 

60 players = 5 : title $ = “HANGMAN” * REM 
title $ is the name of the game 
注意： REM 可用于分开两行 （ 20 行），也可以跟一些空格 
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( 30 行）并且可以川在冒号后面。 REM 也可以简写为单引 
号，例如： 

100 , Calculate average 
110’ Result will be average 

120 IF number = 0 TH1:N average = 0 •* GOTO 
170 ： ’If number is Zero, need to avoid 
130’ calculation or we’ll get a 
140’ division by Zero error 
150 average = total/number 
160 REM Calculation complete 
170 IF average = 0 THEN PRINT “Krr 0 r” 

180 REM Rest of program 
当你刚开始程序 设计吋 ，应该用 REM 来帮你做标记，以 
易于发现程序中的问题。 


ZONE 

ZONE 建立一个制表段来计兑在 PRIM'iS 句中 M 号后 
面的什么地方显示项目。 ZONE 只能给出 1 M255 之间的数， 
并且把一个实数四舍五入。 ZONE 经常设到 13 。比较屮 RI- 
NT “a” ， “a” ， “a” ' 和 'ZONE 7 •- PRINT “a ” ， 
“a” ， “a” ，。 ZONE 和 PRINT USING 连合使用可较容 
易地建立表格。 

WIDTH 

WIDTHS 于设置打印机的行宽。这表示； Amstrad 送 
给打印机一个字符的数量，还要送一个回车 / 换行 （CR 
/LF) 信号，以便打印下一行。 WIDTH255 停止自动 CR/ 
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LF, 而让软件或仃印机决定什么时候打印头回到左边和走 
一行纸。许多打卬机有一个 DIP 开关来控制是送给打印机一 
个 CR/LF 还是由打印机I：〗己决定（此时 迎常 每行为80字 
符）. 

如采 尔的 Amstrad/ 打印机系统有产 生一行 空行的问题， 
可以试一下 W 断打印机电缆的14线。线14传送 AUTO FEED 
XT 信号 • 一 个较严 ffi 的问题是： Amstrad 仅送一个字节 
的后7位，因此 ASCIU28 至255不能做为控制码送给打印 
机。如采图形字符不 能象阼 希铝的那样打出来，可能就是这 
个原因。 

例子 

这瓜是一个简单的程序，它说明 T— 些在本章中描述的 
原理，并说叨如何使川这些功能。 

10 MODE 1 : LOCATE 15，0 : PRINT «GUE- 
SSING GAME” < tries = 0 

20 anumber = ROUND ( ( RND( 1)*8 )+1 

25 REM Select a number between 1 and 9 

30 LOCATE 0， 5 : PRINT “I，ve thought of a 
number between 1 and 9 ” 

40 LOCATE 0 > 7 : PRINT “Press a number to 
guess it” 

50 guess $ =INKEY $ •- IF Suess $ = “” THEN 

GOTO 50 

55 ’Trap null $ in GUESS $ 

60 guess =VAL ( Suess $ ) : IF Suess = 0 THEN 
GOTO 50 
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65 Convert $ to number with*VAL, if zero 
So back to line 50 — Set another key press 
7C tries = tries + 1 « REM Update nember of 
attempts 

80 IF guess = anutncer THEN GOTO 110 « Cor¬ 
rect 

90 IF Suess aaumber THEN LOCATE 0,10: 

PRINT guess, “is too low” ： GOTO 50 
100 IF Suess > anurnber THEN LOCATE 0 9 10 s 
PRINT guess, ” is too High” ： GOTO 50 
105 REM 

107 ’Routine for a correct answer 

108 ， 

110 CLS : LOCATE 0 , 10 : PRINT guess, "is 
right" 

120 LOCATE 3 , 12 ： PRINT "you got it in", 

triesj 〃 tries 〃 

130 LOCATE 10, 15 : PRINT "Another go-y/ 
n ;/ 

140 akey $=UPPER $( INKEY $):IF akey $ = 
〃 "THEN 140 

150 ’Collect upper case character & convert 
to caps 

160 IF akey $= // Y // THEN 10 

170 IF akey $ = 〃 N 〃 THEN CLS * END 

180 GOTO l40:’akey $ neither Y or N，so rep- 
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eat line 140 until it is 

10 行设强方式并从 o 行 15 列开始显示程序的题目同时也 
把 tries 的初值‘茂为 0 。 2 0 行把 I 半 : 9 之间的随机数赋给变 
flanumber. 30 行和 40 行显示提示信息。 50 行重复地测试鍵 
盘 ，直到有一个键被按,然后把键入的字符赋给串变 MUu e s - 
$. 60 行测 i'A:guess $的值,如采为 0 ,则重新执行 50 行。 
70 行更新 tries 的值。 80fj 捡 Wuessd 如果正确则转到 
110 行。 90 行检.盘 guess 值是否太小，如果是这样,便显示出 
相应的信息并转到 5 0 行来接到下一个 g u e s s 。10 0 行测试 guess 
值如采大于逋机玫则 迹示 相应的信息并转入 50 行。 110 行以 
后的行处埋正掬的答装,并陡用 Y / N 来测试,再使 UPPER 
$把键入的字母变为火写。 

你也构注意到,我们没使用 LET 并且在 THEN 后面没 
有使 fflGOTO , 即， IF ( 条件 ） THEN GOTO 5。'和 'IF 
( 条件 〉 THEN 5( K 兑--样的。不要把 NEXT 放在 IF … TH 
EN 的行中，因为如果 IF 后 | lii 的条 fl ••不成立,则不执行 INE 
XT 。 

下 Iffi 足 -- 个用 IN K E Y $ 来 R 位 IN P U T 的 © 序。 IN P U T 
有许多优点，但当键入--个长字符串或数字时,用户可.造成 
错误。商业软 IT •经常 兄 示…个带括号的提示 ，如 ： Please 
enter a 3 -digit number ... ’。 光标被置于左括号后的 
空格处，可在括号之间移动光标，但不能起出。这一点 
Amstrad 是易于做到护。由于使用 fINKEY '$， 你可使之 
适于你的潘要。 例如， 涔可以阳1]一个标志，当调用这样的 
程序时，不接收非数字或非字母字符，你也可重新定义光标 
字符、及输入长度等。计算机不接收小于32和大于122的 AS C 
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II 码。 

为了使用这个程序，你必须把 ’promPt 定义为显示 
信息，把 haxleY 定义为键入字符的： K 大数，把 ’row ' 和 
VoK 定为定提示或输入显示的开始行和列。当用户按 <EN 
TER 时，子程序在输入给串变 fl’enter$ 〃任何字符的同 
时返回主程序。 

10 MODE 1 

20 col = 1 J row =10 : niaxlen = 5 
40 prompt $ =// Enter a 5 digit number" 

50 GOSUB 10000 
60 MODE 1 

70 PRINT^You entered", entry $ 

80 END 

10000 akey $ =// " : entry $ = “ ” 

10010 enter $ = CHR $(13) : left arrow = 242 
10020 curschar = 95 

10030 cursor $=CHR $ ( 32 ) +CI1R $( 8) +CHR 
$ ( curschar ) + CHR $ ( 8 ) 

10040 blank $ = ST RING $ ( maxlen + 1,8) 

10050 LOCATE col, row 

1006。 PRINT prompt $ I " 〈 ％ SPACE? ( ma^ 
len);" 

10070 PRINT blank $j cursor $, 

10080 akey $ = INKEY $ 

10090 IF =" " THEN 10080 

10100 akey = ASC ( akey $ ) 
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10110 entrylen =LEN ( entry $ ) 

10120 IF akey = leftarrow AND entrylen > 0 
THEN GOSU B 10200 : GOTO 10080 
10130 IF akey = lef tarrow AND entrylen < 1 
THEN 10080 

10140 IF akey $ =enter $ AND LEN ( entry $ ) 
= maxleu THEN RETURN 
10150 IF ( akey <32 OR akey > 122 ) THEN 10080 
103.60 entry $ = entry $ + akey $ 

10170 entrylen =entrylen+ 1 
10180 IF entrylen > maxlen THEN entry $ =LE 
FT$ ( entry $ 9 maxlen ) : GOTO 10080 
10190 PRINT akey $ 

10200 IF entrylen < maxlen THEN PRINT curs 
or $ j 

10210 GOTO 10080 

10220 entry $ = LEFT $ ( entry$ , entrylen - 1 ) 
10230 PRINT CHR$ (8)，cursor 
10240 RETURN 


键 （keys ) 

KEY 

Amstrad 键盘是“软”的，尔可以改变任何键产生的字 
符。这就是所谓的冗余特性。这个特性对程序员是很有用 
的。 例如： 当编制一个使用 MODE 2的程序时，每隔几分钟 
就键入 ’MODE 1 : LISP 是很麻烦的，你可用 KEY 命令把 
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命令串斌给任意一个数字键。下 ( W 的例子把引号中的字符串 
赋给数字键7: 

KEY 7, “MODE 1 LIST” + ⑶ R $ ( 13 ) 

注意：赋给一个键的指令必须在引号中，在这学符串的后'面 
必须用加号连接一 1 、 CHR$ ( ]2 ) ，以使得到…个自动凹 
车，所使用.的键号是在 Amstrad 手 册附录 3 中给出的码。在 
这个例子中你可以#到 Amstrad 自动地把 128 加到丫所捉供 
的数上。 'KEY 135/MODE 1 : LIST 〃 + CHR $ ( 13 ) ， 
与上例兑一样的。 

你只能用 128 至 ]_59 间的 31 个键来扩展宇枋 $ 。注 , t ， 所 
有小键盘上的键（除 / 小 ENTER 逑外）都产生同样的值， 
如果 SHIFT 或 CTRL 也被按下的《，小 ENTER 和 SIHFT ， 
一起 11 产如杜 CrRL 如农 CTRLlk 被 .& 则 •产生 
10 。当 Amtrad?| 通时 , 如果 frCTRl 同叫按这个⑽被设 
为产生 RUN 〃 < ENTER) , 有 120 个字节分配给所舟的 
KEY 用作斌值。 

KEY DF.F 

你可用 KEY DEF 来改'於-个键所产生的 ASCHd 
例如:为了使大 ENTER 键产生火写的字母 A , 你可以用 
'KEY DEF 18, 0 , 65, 65, 65，,第- •个数 对应这个挞, 
第二个数丧示这个锌姑否连发。0表示不连发， i 丧示连 
发，其它数则产生出错信息 “Improper argument ” . 后 
面的三个数是这个键将产生的 ASCII 码。中沁-个姑正常 
字符，第二个是换挡的字符，最后--个 II 问时按 CTRL 键所 
产生的字符。如果你只想改变其中的 一令， 只耑;写你不想 
改变的值*例如：你想改变2键的 CTRL 值，你可用 .’KEY 
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DEF71 … 32/ 。 这使 CTRL- 2 产生一个空格 （ASCII 码为 
32), 但不影 ; 此过的连发、正常或换挡字符的产生。 
SPEED KEY 

大多致 Amstrad 谜可自动迮发 ( 即当按下一个键吋，产生 
一小会儿延迟，然沿以规则的间隔连发这个宇符。使用 sp ¬ 
eed KEY 你可以改变延迟时间和连发间隔。如、果你有大 
in 的拷贝编糾耍做或者使游欢快速地响应键盘，细加快重复 
速度是很有 JiWJ 。 

SPEED KEY 沿要 2 个 参数: 开始连发前的延迟和连 
发的问阪。两个参数都以 1/50 秒为敢位。 'SPEED KEY 
100, 50^ 表示键按下 2 秒后开始蜇复， ffi 釭的间陨为 1 秒。 
如采你在—个程件中设置了很短的延迟和 很快依 蜇复如 ’SP 
EED KEY UV, 你必须小心，因为当程序结束时，你想 
中断它 , 则会发现 ㈡ 盘失效。 W 为诚将被按 iH 瞬间连发，而 
且连发得彳 K 快 , 每按 -.- 次键可连发 G 个字符。你耍在程序末 
把这网个仉恢 M 为默认伉或你所 5? 求的值。 魏 默认值的 
快速方法£使川 “CALL & B130C” ， 并且你应记住柿获 
错误扣中断，转到保序妁结屘 , 例如 : 

10 ON ERROR GOTO 10000 
20 ON BREAK GOSUB 10000 
30 REM Program 
40 J 

999 GOTO 10000 : REM END 

9999 ’Reset key delay and repeat 

10000 CALL & BB00 

注 #: f CALL & BB0CK 把所订的键都设成默认的 ASCII 
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码。 rom 程序重新设 a 键盘 ' rr • 理系统， k 中包括 w 值，连发 
速度等等。 

禁止 ENTER 键 

使用 KEY DEF 可以在程序运行吋至少进行一次保护。 
例如 ： ’KEY DEF18, 0 ， 0 ， 0 ， 0, 将使大 ENTER 键 
什么也不产生。同样 ， ％EY 139. " " ' 将使小 ENTER 
键不起作用。为了完成这个保护，你还必须使川 ’KEY DE1< 
38，1 , 109, 77 ， 0, 这使 CTRL-M 也不产生回车动作 
( 109 和 77 分别是 m 的小写和大写 ASCII 码）。此时,用户想 
中断一个程序时，则是不可能的，因为所打的 ENTER 键都 
不起作用，象使用其它保护技术一样，你必须确保你的行序 
在使用这呰命令以前执行完，你也必须:输入来适应 
ENTER 的一些其它改变 , 从 ffi 丨使 R 序可以接收川 P 输入。 

虽然有 32 个可用的扩展键 （ 128-159 ) ,但手册中只说 
明 140 个純 , 那么 141— 159 号键在什么地方呢 ? 芥案足:你 
必须自己为这些键赋值。例如 ’KEY DEI? 38 ， 1 ， 109 ， 
77, I5f/ 把 155 赋给 m 键。然后，你可以使用象 XEY 155, 
〃 RENUN 〃 +CHR $ ( 13 V 这样的命令把•一个功能赋给 
CTRL-M 。 

INKEY 

INKEY 允许你检迸一个给定键的状态，它非常象 INK 

EY $ 。 例如： 

100 IF INKEY ( 33 ) = 0 THEN GOTO 1000 

括号中的数是检查的键号， IN 法和 KEY DEF 足一样。 
根椐键被桉，或没按或同 SHIFT— 起按还始同 CTR L — 起 
按， INKEY 回送四个值之一，这些值在下表 给出： 
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INKEYffi ； 


表示状态 
没按键 

0 按键 

32 按键 + SHIFT 

128 按键 + CTR1, 

160 按謎 + SHIET + CTRL 

由于使用 INKE Y "r 以设一个逋足 + 足被按和 SHIFT 和 
CLRT 处否也被按 , 所以 INKEY 可以代替 iNKEY $。例 
如，在 4 3 号键 (Y) 被按的条件下，你想让程序转到 5 000 ,你可 
使用 IF ， INKEY(43) < > _ 1 THEN GOTO 5000MNK- 
E Y 也允许你检 & j 组台键 S 卜 1 1F T 或 C T R L 被按。而处 ll 
这类使川 INKEY $ 键 - 足很麻烦的。 INKEY 和 KE Y 
DE1’’ 一起使川川 ‘ 允许你 Wi 用经过辦处理的鉍杂键盘。 
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第四章子程序、数组 
和系统功能 

子 S 序 

子程序是可以从裎序的任何郃分调川的一段锃序编码。 
使用子程序町节省程序空间》例如：你打一个在点停止 
的程序并要求用户按空格来继续执行。这个操作 iti 好 ) li 子程 
序。这个程序 livl 主要部分 如下： 

1000 LOCATE 25, 1 : PliINT “please press the 
space bar to continue” 

1010 A $ = INKEY $ : IF a $ = “ ” THEN1010 
1020 IF A $ < / CHRS $ ( 32 ) THEN1010 
1030 *On with the proSram 

这段程序 ftM 倍底行 Mi— 个提示 ， 然后在 100 行彳 il 1020 \s 
之间诚坏 , Ji 到用户抉了间如果你在程序屮多次用这 
段程序从而多次地写它足很麻烦的。你诃以把这段程序变力 
子程序 , 这耑要在 1030 行加上 RETURN 。 然当你想执 
行这个操作时，必须使川命令 GOSUB1000 。 

GOSUB 告诉计算机跳到给定的行号，并 11 从那 Mi 开始 
执行。当执行到 REUTRN 命令时 , 则洮到 GOTO 命令的下 
— 行。 为了 # 看 GOSUB 如何工作,键入并运行下面的程 
序： 
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10 CLS 

20 (jOSUB 1000 : REM space bar subroutine 
30 CLS 

40 PRINT “Once more please” 

50 GOSUB 1000 •• REM space bar subroutine 
60 CLS 

70 LOCATE 10, 10 
80 PRINT “THi 、 END” 

90 END 

$ 你的 _f:M 、 稃序屮使川这样 A nv: 序 ai ： 很的 。 \nn 
•*; 廳 : 地产生农目， frUfj 太 W 的 REM 来编制农目时嬰非 
常仔细 》 

使 ii)l'OR-NEXTMi !； "T 以把操作重以若干次 , 似也 # 
M 样效米 I! 」八它方沾。 -• 个方法 ) tJl GOTO- • 起使川 IF... 
THEN. T'Oii 两个程序 W M 样的效采。 

10 FOR COUNT =10 TO 100 STEP 10 
20 }’JRr'T"The square root 

of 1 'I COUNT ，〃 i，i SQR ( COUNT ) 

30 NEXT 

10 COUNT =10 

20 PRINT "The square root 

of", COUNT ，〃 is '、SQR (COUNT) 

30 COUNT == COUNT+ 10 
40 IF COUNT =100 THEN GOTO 20 
第二个例 H 交长一点，但足当你不能确定循环多少次或在循 
坏期间想改变循环次数时，这个方法是很冇用的。 
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WHILE 和 WEND 

还有两个象 IF*"THEN 这样在一起的命令可控制循环。 
它们是 WHILE 和 WEND 。 上面的两段程序可用下面的例子 
完成： 

10 COUNT =10 
20 WHILE COUNT =1。0 
30 pRINT〃The square root 

of"; COUNTj 〃 is 〃， SQR( COUNT ) 

40 COUNT =COUNT+ 103 
50 WEND 

这样的控制指令比 FOR … NEXT 循环有许多优点。通 
常，我们不知道确切的循环次教，使用这两个命令，解决了 
这个未满足条件而遗留 FON … NEXT 循环的问题，我们考虑 
下面的程序： 

10 FOR avalue = 1 TO 1 0000 
20 akey $ =inkey $ 

30 IF akey $ = CHR $ ( 32 ) THEN 50 
40 NEXT 

50 REM on with the program 
这个程序在程序中产生一个暂停，直到用户按一个间隔键或 
循环 10000 次为 ■ 止。如果用户在循环完成前按间隔键 ( ，则仍 
然有一些 FOR-NEXT 的循环次数未解决。如果这个现象 
太频繁，则会产生问题。 

ON GOTO/GOSUB 

ON GOTO 和 GOSUB 把类似下面的 操作： 

1000 if option = 1 THEN GOTO 2010 
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1010 IF option = 2 THEN GOTO 5350 
1020 IF option = 3 THEN GOTO 6870 
1030 IF option = 4 THEN GOTO 8000 
变为： 1000 ON option GOTO 2010, 5350, 6870, 

8000 

这使程序简化，因此在键入程序时不容易出错。 

ON GOSUB 的用法和 ON GOTO —样。对于 i 这两个 
命令来说，如果所选的变蛩（你也可用数字表达式）值为 
0 ,则系统不执行 ON …语句，如采算出的值大于所列行号 
的数目时也是如此。 

当遇到 RETURN 时， ONGOSUB 不把控制转到下一 
行。控制转到调川这个子程序的语句的下一行。 ONGOS - 
UB 是菜单选择中的特殊值。使用每个选项的第 一1 字母 
和 INSTR 及 GOSUB , 可使菜单的设计变得简单。见下 
例： 

10 CLS 

20 PRINT 〃Q = Quit 〃 

30 PRINT 〃N =Next〃 

40 PRINT "P =Previous〃 

50 PRINT 〃 D = Delete " 

60 Print 〃A= Amend" 

70 menu $ = 〃QNPDA〃 

80 akey $ = INKEY $ : IF nkey $ =" "THEN 80 
90 Choice = INSTR ( menu $, akey $ ) 

100 IF choice = 0 THEN 80 

110 IF choice = 1 THEN CLS « END 
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120 ON choice GO SUB 2000 ， 3000, 4000, 5000 
130 GOTO 10 


功 能 


DEI- FN 

使用 DEF FN 可逮立用户定 < 的功能，这些功不能做 
象发， \ 划线，打印结恥这样的氺。它们经常用于数字或 ;•: 
打串 操作。 — 个很普通的用法足在程序的任；&点产生随机 
数，而不龙要前复使月 j 'random number = INT ( RND ) 

(1 ) * ( 100 ) +1' 这样的 ifi. 句。使用 DE1M ， N 你可以在 
操作开姶建立这样的功能 ：] 0 DEF FN rar.d(numb- 
er ) =INT( RND(1) *nutnhnr ) + 1. 然后，料当耑要 1 
到 uumher 之间的随机数时，尔可以剁 ⑴这 个功能,就象调 
JH 子程 坏 ： •’ 100x =FN rand f 130) ， • 样。 这个语句把 
100 送给功能 'rand ，， ： (V: 炎 达八 ， I >： T ( RND(l) *n u - 
mhpr) + 1 / 中来代銶 number 的现行尚，这就给变 ffi; 'ranh- 
n u m'- - 个 1 到 1 (J0 之间 : 'i:; 彷数值。 

功能不限于对括号中拍数的操作。它忖以使則你程序中 : 
的任何变但仅回送 -• 项。例如，如采你想产±两个他 
- 之问的随机数，以 M 根倨变％ “ 高 ” 和 “ 低 ” 来存贮 : 

10 DEF I'N rand(number) = INT( RND(l) * (high 
一 low ) + low 

功能 也可对 其符串操作。如果一个功能是接收并且回送 
宇符串 , 则必须 & 后面加 $ 或串标 i) 1 、 符。下例回送数字的氓 
表示，并且不带 符号： 

DEF FN strip $(number)= 
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MID $(STR $(number), 2 , LEN(STR $ (num¬ 
ber ))-1) 

为了使用这个功能，你可以这样调 ffl: 

1000 numb ei $ = FN strip $(number) 

如果在一个功能中发现一个铠误，出错信息将指出调 
用这个功能的语句的行号，而不是功龙定义本身的 ft *1。 




组 


数组处理父 Basic 设有的功能之一。一旦你理解了这 
个概念并对违 立数泔 很熟练,你将发现,在程序中使用数组 
将伐程序设计较简单。 

数沮足存贮数批的结构, '"J ■以认为它个表,你可以 
有实数、整数和字符奶数组 • 数组川 DIM 来定义,它为数 
组在内存姐立存贮空间。 

苡简给 的一类数处一维整 数数: u 。可以把它想象为一 
个数值表。当我们 /TDJM a r ray %(〗0:/ 定义一个整数数 
组时, Amstrad 为数据存贮建立 ]0个 小空阀 ,我们使 用赋 
{& r ! H<J “ ” 可 以把数 据裝在这些小空间屮 。因此 1 LET 
array %( l ) = 99' 把99 放入数 d .: : '5 —个单元括号中的数 
称为下 标。 同样地, ' array % (5) = ROUND ( divisor / 
dividend V 把丧达式的 结采放 入数组 的第五个填元。我们 
可 以象普 通的变样存取 数组中 队数。 'LET number = 
array % (7 V 把数组第 7 单元 Lv . ; 给变俎 number 0 见 
围 4.1。 

数; 111 妃很有 用的 ，因为它允许程序员很快地存取或修改 
数据。例如，我们可爪数组存贮一个数的平方，以便需要时 
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不必 ffi 新计 算： 

10 DIM sQuare %(30) 

20 FOR number = 1 TO 30 
30 square% (number) = number 个 2 
40 NEXT 


下林 


ir 



^4! 教组 ^ 


‘ . 2 3 4 5 6 7 b ? to u tZ • • 


y I 4 ? 各 5 3(> ^ ^4 too ui ii4 /96 .%• 

1^4.2 私组名切凼水 


这个数 m 的表 （ mi . 2 ) 你为奄找表,把数值算好并存起来 
来后，存取时则比每次邡里新计算快得多。查找衣可以在程 
序开始时，从磁带文件中装入。 

这个表说明了变量如何作力标号来川，变量 number 对 
应于所存的数组单元，因为 number 足 FOR-NEXT 结构的 
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循坏计数，其值从』到30,因此可以作为标号。 

整数数组可以处理 - 32768到+ 32768之间的整数。如采 
对逻数组单元的赋值超出这个范 W ， 则产生出错信息 'Ovc- 
rflo w ' (溢出）。如采要把实数賦给整数组,则先要对实数 
使用 UNT ' 命令。 

实数组 用于 带小数点的数 ，如： 

] 0 DIM realarray(lOO) 

20 I'OIi cachccll = J. TO 100 
30 realarray(cachcell) - RND(l) 

40 NEXT 

实数 (11 比牿数 +M 占〗 I] 较多的存贮空间并且存取时所花的时间 
也较长 , 因此，只釘必要吋！•用。字符串 m 也是可能的，在 
这种怙 况下,时次送的+足一个数而足一个字符串。每个字 
符 ㈣ i 多 4 达 255 个字符。例 如: 

10 DIM French $(20) 

20 l<rcnch $(1) = “ u n” 

30 French $(2) = “ deux '， 

40 I>'rencli $ (3) = “trois” 

50 REM rest of definitions 

1000 ]-OR count = 1 TO 20 

1010 PRINT counts “=” ； French $( count) 

1020 NEXT 

你 " I 以 f 川 DIM 来使用小于 10 个单元的数组 ，如： 

10 FOR cell = 1 TO 10 
20 array(cell) =SQR(cell) 

30 NEXT 
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注意 ： 有0下标的数组对于存贮数据是很有用的，下面 
的子程序计算数组中数的总和，就是这样一个例子： 

1000 total = 0 

1010 FOR cell =1 TO no . cells 
1020 total =tolal + array ( cell ) 

1030 NEXT 
1040 array ( 0 ) = total 
1050 RETURN 
多维数组 

最经常使用的数组是多维数纟』 1, 其中最简单的是两维数 
组。两维数组中_项有两个下标，可以把它们想象为坐标 
纸上的行和列，（见齒13 ) 



用 DIM array 
(8 , 10) 建立 

的实数组。 


数组 （6,2) 数组 （4,6) 数组 （8,10) 
1414.3 两维坐标数组的卩: J 示 
在存贮器中建立这样的数组说耍对 dim 稍加 r 展。例 
如，我们可以使用一个两维字符串组来在一个简单的数据库 
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中存贮姓名，地址和电话号码。这个数组 "I 由语句 ’10 DIM 
addressbook? (100,3V 来建立,从时为一个 100 行 3 列的 
字符串 MJf 辟空间。我 II 』把名子存在第一列，地址存在第二 
列，电话号码存在第三列。 

为/把敛据加入数组,川■用下列程序: 

200 LET addressbook $(1,1) - Fred Smith 
2i0 LET addressbook $ (1 ,2) =10, The Avenue 
220 LET addressbook $ (1,3) =01 — 678 — 5473 
阁 4.4 帮劝 你理谇这个原理， 



1 ■■■-• - 

to, TK 〜 Av/^v 

<r- 




L — ——— 」 ! 

- 




」 __ 



9 ? 

19。 




阅 4.4 字符屯组 ’addressbook $ 的图士 
作为一 卜数 :11 处埋妁阀子， U: 我们来想象一个 100 行 20 
列的数字编 > 户程印来计总地列的和及平均简并把结 
來放入每列的鉍后两行 (101 行和 102 行）： 

1000 FOR column =1 TO 100 

i010 total= 0 

1020 FOR row =1 TO 20 

1030 1 otal = total + array (row, column ) 
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1040 NEXT row 

1050 arraydOl, column ) = total 

1.060 average = total/100 

1070 array(102)=averaSe 
1080 NEXT column 
1090 RETURN 

通过 ‘GOSUB 1000 ，我们可以使用这个子程序经常 
修改数组的和及平均值，然后可以从数组的 fiJ 后两行 得到灯 
关的值。 （ 图 4.5 ) 。 

在 101 行存贮的和 
在 102 行存贮的平均值 



列 1 的和 列 1 的平均数 

图 4.5 利用数组的行存贮附加信息 
也可以有多于 2 维的 数组 ： ‘DIM large array $ (20, 
20, 20 ) ，是非常合法的，但占用较多的存贮空间并且较难 
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建立它的概念。当需要一个三维数据时，我们可使用这样的 
数组，你可以把它想象为一个立体方块（图 4.6) 。在 Basic 
程序中很难发现三维以上的数组，但 Basic 有处理这样数组 
的能力。 



图 4. 6 3 维列数组的图示 

动物游戏 

初打起来好象很困难的邮设计问题，通常可用数组来 
简单地解决。一个这样的例子足动物游戏。在这个游戏中 , 
你想出一个动物，然后计 I?: 机猜这个动物足什么。这个游戏 
足以这样的方法设 计的： 计算机学习新动物并问新问题。 

在下而的例子中，计兑机从只知道驼鹿和鲸鱼这两种动 
物开始，它们之间的区别妃鲸鱼生活在水里。当计算 机问： 
足否这个动物生活在水里？答案足 Yes 。 计算机将 问： 是否 
你想的动物是鲸 & 。如果不足，计算机 将问： 这个动物是什 
么，并问这个动物和鲸鱼间的区别。然后重新开始。再让你 
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想一个动物。象这样简单的游戏，要把它编成程序足不容易 
的。这里提供了一个简单的程仔，你可以修改它以适于你的 
需要。你可以把数组的初始内容改为植物，飞机或:其它你感 
兴趣的东两。 

这个程序此用一维数组存贮数据和问题。把信息存贮的 
方法想象为二元树足最容易的。（见图 4. 7) 。问题是如何 >|j 
一个一维数组表示这个两维结构。 （ -足可以使用两维数组 
的，但会浪费火 [4 存 贮器。 ）数的每个 “ 结点”存贮一个问 
题。 



處 4.7 动物游戏所用的二元树 


或一个动物。 动 物名 ) ij 符号 “1” 标明，当学习 / 新动 物时 , _ 
把其名字和相应的问题 存入数组，并把其 他项目做相应 I 於修‘ 
改，下面 是这个 程序： 

10 DIM array $ (1000) « array $ (.1) = (.Does it li 
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ve in water 








20 array $ (2) = “I moose”：array $ (3) = “I whale” 

30 CLS * element =1 

40 this $ =array$ ( element ) 

50 IF LEFT$ ( this$，1 ) = “I” THEN GOS 
UB 80 ： GOTO 30 

60 PRfNT this$ I “？ ”： GOSUB 180 : IF aas- 
wer$ = “Y” THEN element = ( 2 * eleme¬ 
nt ) +1 CLSE element = ( element * 2 ) 

70 GOTO 40 

80 this$ =R[GHT $ ( this $ , LEN ( this$>- 1) 

« PH[NT “Is it a” I this$, “？” ： GOSUB 
180 

90 IF answer? = “Y” THEN PRINT “I gues¬ 
sed it - want another So? : GOSUB 180 « IF 
answer? = “Y” THEN 30 ELSE END 
100 PRINT “I give up, what is it? ” 

110 ikPUT it $ 

120 PRINT〃Type in a Question ^ hich 

will “: PRINT” distinguish between a u \ 
it$i ” and a “i this $： PRINT” The Question 
should start with，Does it, Is it etc. ” * 
PRINT “The answer must be either yes or 
no” 

130 INPUT Query $ 

140 PRINT “what’s the answer for a〃，it $ i 
“？” • GOSUB 180* it $= “I” +it$ ： this$ = 
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“I” +this$ 

150 IF answer $ = “Y” THEN array $ ( 2 来 
element ) = this $ * array $ ( ( 2 来 clement) 
+1 ) = it $ ELSE array $ ( 2 * element) 

=it $ sarray * ( ( 2 * element )+1) = this$ 
160 array $ ( element ) =( luery $ 

170 RETURN 

180 answer$ =LOW£R$ (INKEY $ ) *IF aas wr 
er$ = “ ” THEN 180 
190 IF INSTR( “yn”，answer $ ) = 0 THKN 
180 ELSE 
RETURN 


系统功能 

Amstrad 苻若千系统功能，它们对税序员是很有用的。 
在本段中，我们将介绍 W 中的一找功能，： !:t •它功能将在后几 
章中说明。 

ERASE 

数组可以古冇人沾存贮器，冇时，要收回这些存贮空间 
以供其它数纽使用。 ERASE 命令可淸除数组，把其所占的 
空间空出，以允许程序员使用。 例如： 

1000 ERASE real, array 
1010 ERASE integer array% 

1020 ERASE array $ 
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同样，也可以这样 使用： 

1000 ERASE real, array, integer array%» 
array $ 

如果试图清除不存在的数组，则产生出错信息 impr¬ 
oper argument ’ （不正确的参数）。 

READ 和 DATA 

READf : [ 〗 DATA 是 Basic 程序员的特殊工具。它们允许 
你在程序中存贮数据而不需使用多个象下列那样的赋值语 

句： 

100 xcentre =320 
110 ycentre =200 
120 radius =10 
我们可以使用下面的简单语 句： 

100 READ xcentre 
110 READ ycetre 
120 READ radius 
130 DATA 320 
140 DATA 200 
150 DATA 10 
我们也可使用更简单的 形式： 

100 READ xcentre, ycentre, radius 
110 DATA 320 ， 200， 10 

为了了解 READ 和 DATA 如何工作，想象一个数倨指 
针。在程序的开始，这个指针指向第一个 DATA 语句的第 
一项。如果没有 DATA 语句，你发出一个 READ , 程序将 
停止，并显示出错信息 ‘DATA exhausted 数据用 
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完） 。 如果你读的项目超出 DATA 语句中的项目，也显示 
这个出错信息。每当遇到 READ 语句时，数据指针所指的值 
或字符串将存入存贮器并赋给 READ 命令指出的变 S 。 
KEAD 可把字符串赋给串变 S , 例如： 

100 READ name$, address $ , phones $ 

500 DATA Fred BloSBs, 13 The Crescent BurJ* 
Lancs, 0893—65734 

注意： DATA 语句可在程序的任何地方出现。 

对于上例，你如何能把一•个逗号放入 DATA 语句的字符 
出屮，而使 Amstrad 不把这个逛号 S •成各项间的分隔符？ 
答案圮，可以把这样的字符串用引号括起来，例如： 

1.00 READ came $ , address $, phones $ 

5000 DATA Fred HloSSs, “13, The Crescent, 
Liury, Lancs. ” , 0893 — 65734 
在一个 DAT A 语句中，你可把宇符串和数字混合用， 
但势注窃，不耍在数据指针抬向一个字符串时使 Amstrad 读 
—个数字倌，否则将出错。 

KEAD 和 DATD 对于填入数组是很有用的，在一个简 
单的数据库中，你可以定义这样一个数组 ‘DIM data $ 
(100, 3 ) ’ 来存贮磁带、书或邮粟的信息。这个数组所 
需要內 信息可放在 DATA 语句中，并在程序的开始读入数 
針 I 。 

让我们看一个简单的例子，这里我们想存贮音乐的标 
顾、作者和种类，这个.数组将有100行3列，并且我们想从 
L»AT \ 语句中读入信息。这个数组的装入程分可以迻样开 
始： 
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10 DIM array $(100, 3) 

20 row = 1 

30 READ array? (row, 1) 

40 IF array $(row, 1 ) = “ ZZ 2” THEN 100 
50 REM “ ZZ 2” signifies end of data 
60 READ array $ ( row , 2 )，array $ (row, 3 ) 

70 row = row + 1 
80 GOTO 30 

100 REM all DAT A . read in 
110 ’Rest of proSram 

1000 REM data in order title ， artist , tJpe 
1010 DATA I 3 eat > KinS Crin - son , jazz 
1020 DATA Holland , Beach Boys , Pop 
1030 DATA Sketches of Spain , Miles Davies 
/Gil Evans , Jazz 

1040 DATA The Four Seascns ， Vivaldi ， Class ¬ 
ical 

1050 DATA 111 

为了使程序简化，你可在 DAT 八语句中陇用字母 C ， P ， 或 J 
来表示音乐的类型。你可以这样写： 

1000 (rpe $ =array $ ( row , 3 ) 

1010 IF type $ = “ C ” THEN type $ = Classical" 
1020 IF type $ = “ P ” THEN type $ = “ Pop ” 
1030 IF type $ = THEN type $ = “Jazz” 

1040 array $ ( row , 3 ) =type $ 

甩 FOR … NEXTM 环填两维数组是较容易的。通过上 
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例，我们看到有四行，每行有3项，因此可用下程序装入数 
组： 

100 FOR row = 1 TO 4 

110 FOR column = 1 TO 3 

120 READ array $ ( row , column ) 

130 NEXT column 
140 NEXT row 

在这个技术中，依赖于对 DATA 语句中 行数的计数，而不是 
仅仅设 S 数字标志的纟 A 束。 

RESTORE 

与 READ 有关的一个很有州的功能足你可以把数据指 
针蜇新设到 DAT A 语句中的第一个数据。 ‘RESTORE 
1000 ’把数据指针移到1000行的 DATA 语句的第一个数据。 
如果没存1000行，贝! J 产生错误信息 ‘Line does not exi - 
st ’（此行不存在）。如采1000行不是 DATA 语句，则向后 
搜寻，指针移到下一个 DATA 语句。在 RESTORE 命令中 
不能使 ffl 表达式，只能使 )11 数字参数，这就限制了它和 
READ 及 DATA 的结合使用，佃它可以允许你定义或 1 S 新 
定义所冇程序设计的细节。当程序必须 ffi 新运行时，你可以 
用它装入数组，不同的数 IS 可賦给不问的变 M 等。把数据存 
贮在 DATA 语句中并且也存贮在数组中，则妃浪费的。如果 
只需访问数据，把数 据存入 DATA 语句即叫。如果还需对数 
据进行操作，则应把它们填入数组。 

TIME 

当 Amstrad 汗通 I 寸，一个汁.玫器开始从零计数。这个 
计数器有4个字节 （ 32位），可计的最大数约为 4.3 E + 
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09, 计到这个数后再从零开始计。计数器每1 /300秒计一 
次数，你可以用它来做一个准确的时钟。为了对一个事件记 
时，你必须在事件开始前把时间值存入一个实数变量。当事 
件结束时，你从现行时间减去这个值，然后再除以300。註 
意：在磁带操作期间，时钟不计数。 

T 1 A 1 E 可以作为数字用。在下例中，它用来对反应速度计 
时。这个程序先清屏，在一个随机的间隔后，则显示 “HH 
KEy ” （按键）。然后计数显示提示和按键之间的时间并 .-S 
示出结果。大多数人对此的反应速度约为 0.25 秒。下面是荐 
序《 

10 ON BREAK GOSUB 510 

20 ON ERROR GOTO 510 

30 MODE 0 :PEN 7 : PAPER 6 

40 I NK 4, 26, 15 :SPEED INK 10, 10 :CLS 

50 LOCATE 4 . 1 

60 PRINT “Reaction Timer ” 

70 DEF FN rand ( n ) = ]NT ( RND ( 1 ) *n ) + 1 
80 LOCATE 2, 5: PEN 3 
90 PRINT “When the message ” ； 

100 LOCATE 2， 7 :pENl 

110 PRINT “HIT KEY ’ appears ，” 

120 PEN 3 

130 LOCATE 3 , 9 "PRINT “Press any ke y ” 

140 PEN 4 

150 LOCATE 1 , 24 

160 PRINT “Press space to start ” 
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170 IF INKEY(47) = - 1 THEN 170 
180 CLS 

190 SPEED KEY 1 , 1 

200 FOR Pause = 1 TO FNrand ( 10000 ) : NEXT 

210 CALL &BB03*MODE0 

220 LOCATE 6 ， iO: PRINT “HIT KEY ’， 

230 const =TIME 

240 a $ =INKY $:IF a $ = " " THEN 240 
250 reaction time = TIME - const 
260 goes =goes + i 
270 rtitne = reactiontime/300 
280 totiuie = totime + rtime 
290 aytime = totime/goes 
300 MODEl LOCATE 10, 10 
310 PRINT “Your reaction time was” 

320 LOCATE 10, 12: PRINT USING “## • # 
##” j rtimej 
330 PRINT “seconds” j 
340 LOCATE 10, 15 
350 PRINT “Average so far: " j 
360 PRINT USING “ ### ” j aytime, 

370 PRINT “seconds” j 

380 LOCATE 13, 25*PRINT “Another? … jU” 
390 CALL &BB00 

400 encore $ =UPPER $ ( INKEY $ ) 

410 IF encore $ = “Y” THEN 180 
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420 IF encore $ < : “N” THEN 400 

430 CLS 

440 LOCATE 6, 10 

450 PRINT “Your aver aKe reaction time” 

460 LOCATE 11, 12 

470 PRINT “over” j g°es j “tries was” 

480 LOCATE 10, 15 

490 PRINT avtimej “seconds” 

500 / Restore Kt；yaobard to nornia| 

510 CALL &BB00：CALL &BB03 
•几何功能 

Amstrad 打各种几何功能，这些功能在图形程序中有特 
殊的价值，如画圆、画螺线等。 SIN, COS, TAN, ATN 
都可以计算 （ 见第 8 . 窗）。大多数家庭计算机 Basic 要求处理 
弧度，而不是角度。但 Amstrad 允许你用 DEG 和 RAD 指令 
在两者间转换。为了把角度转换为弧度，你可以使用关系 
式： “ 弧度 = (Jt/180 ) * 角度”。但 Amstrad 允许你只 
使用角度或只使用弧度。 

存贮設 

Amstrad 的存贮器为 64K 。 UC 为 10 2 4 字节。每个字 
1T 町存贮一个 0 〜 2 55 之间的数字，对于超出这个范围的数 
字可使用 2 个字节或其它技巧。关于存贮器的大多数问题在 
第 7 章说明。 

PEEK 和 POKE 

这两个命令允许你直接访问 Amstrad 的 RAM，PEEK 
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允许你捡査存贮单元的内容， POKE 允许你把一个值放入存 
贮器。因此， ‘ POKE 43800, 255，把255放入地为址43800 
的单元 ， ‘PRINT PEEK ( 43800 ) * 则显示在行号中给 
出地址的单元内容。 

Amstrad 有两种存贮器： ROM 和 RAM 。 ROM 是只 
读存贮器， RAM 是随机存贮器。当关机时， ROM 中的内容 
不丢失也不改变。而 RAM 中的内容则在关机时被清除。 

可以把 RAM 想象为一个个模块，有的用于存贮程序， 
有的用于存贮数据。还有一块是用于屏蘇显示，改变这个模 
块就可以改变屏幕显示。因此，利用 POKE 也可以改变屏 
幕显示，利用 PEEK 可得到屏箝的信息。 POKE 经常用于把 
机器码的程序装入 RAM , 这要利用 READ 指令从 DATA 语 
句中读入机器码指令和数据。 

每个存贮单元称为一个地址。 BasicS 序和数据的最大 
地址为43907。 

注意： 你不能用 POKE 命令把一个大于255的数放入一 
个存贮地址。 PEEK 也不能产生一个大于255的数。 

数据库程序 

最后，我们举出一个非常简单的程序，它包含了本章中 
说明的所有概念。它是一个3列数据库，可作为书、磁带的 
索引。它把数据存入磁带，每次运行程序时重新装入，以便 
它可适于不同的应用，它作为一个说明程序设计技术的工具， 
而不是一个完整的程序。你可以改进它以适于自己的需要。 
下面是这个 程序： 

10 ’ Simple Database 
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20 ’with tape facilities 
30 ， 

40 ’Initialisation 
50 CLS 

60 DIM array $ ( 300, 10 ) 

70 numberofentries = 0 
80 numberofcols = 3 
90 ， 

100 field $( 1 ) = “Name” 

110 field $( 2 ) = “ Address ” 

120 field $(3) = “Phone” 

130 ' 

140 FOR i = 1 TO numberofcols 

150 find $ =find $+LEFT $( field $ ( i ), 1 ) 

160 NEXT 

170 ^ 

180 option $ = “ LSFEQ ” 

190 ’ Load ， Save , Find ， Enter , Quit 
200 submenu $ = “ NADM ” 

210 ^ext/Alter/Delete/Menu 
220 ^ 

230 REM Entrj ^ to Main Menu 
240 menucol =17 :CLS 

250 LOCATE 17, 1 : PRINT “Main Menu ” j 

260 LOCATE menucol , 5 :PRINT “L . Load ” 

270 LOCATE menucol , 7 : PRINT “S . Save ” 
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280 LOCATE menucol, 9:PRINT “F …" • Fiad ” 
290 LOCATE menucol, 11:PRINT “E … Enter ” 
300 LOCATE menucol, 15*PRINT “Q … Quit” 
310 LOCATE 19 ， 24*PRINT “Select” 

320 » 

330 * Clear keyboard buffer 

340 GOSUB 1450 

350 akey $ =UPPER $ ( INKEY $ ) 

360 IF akey $ = ^ THEN 350 

370 option =INSTR ( option $， akey $ ) 

380 IF option = 0 THEN 350 

390 IF option = 5 THEN GOTO 1150 

400 CLS 

410 ON option GOSUB 450, 560, 670, 1030 
420 GOTO 240 
430 * 

440 'Load 

450 OPENIN “datafile” 

460 INPUT#9, numberofrows 

470 number of entries = number of rows 

480 FOR row = 1 TO numberofrows 

490 FOR col = 1 TO numberofcols 

500 IF EOF THEN 530 

510 LINE INPUT#9, array# ( row, col ) 

520 NEXT*NEXT 
530 CLOSEIN* RETURN 
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540 1 

550 ’Save 

560 IF numberof entries < > OTHER 590 
570 LOCATE 13, 10*pRINT “NO data to 

save” 

580 GOSUB 1290* RETURN 
590 OPENOUT “datafile” 

600 PRINT# 9 ， nuniberofentries 
610 FOR row = 1 TO numberofentries 
620 FOR col = l TO numberofcols 
630 PRINT# 9 ， array $ ( row, col ) 

640 NEXT*NEXT*CLOSEOUT* RETURN 
650 f 

660 * Find 

670 1 IF numberofenties = 0 THEN RETURN 
680 LOCATE 17, 1» PRINT “Find Me nu ” 

690 FOR i = 1 TO numberofcols 
700 LOCATE nienucoU i ♦ 2 + 5 
710 PRINT LEFT $ ( field? (i), 1 )j 
720 PRINT “……” j field $(i) 

730 NEXT 

740 LOCATE 19, 24:PRINT “Select” 

750 GOSUB 1450 

760 akey $ = UPPER $ ( INKEY $ ) 

770 IF akey THEN 760 

780 field =INSTR( find $, akey $ ) 
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790 IF field = 0 THEN 760 
800 1 

810 CLS:LOCATE 込 10 
820 PRINT “Enter” j field $ ( field 
830 PRINT “to find” j 
840 INPUT pattern $ 

850 ! 

860 ’Start on first row 
870 row = 1 

880 afind = INSTR ( array $ ( row, field ) ， 
pattern $ ) 

890 i NO find-so do next row 
900 IF afind = 0 THEN 970 
910 f 

920 GOSUB 1380 ： ’Display 
930 GOSUB 1490: >Sub Menu 
940 y 

950 IF choice $ = “M” THEN RETURN 
960 ’Next row 
970 row =row +1 

980 IF row < = numberofentries THEN 880, 
990 RETURN 
1000 f 
1010 ’Enter 
1020 CLS 

1030 number of entries = number of entries 4-1 
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1040 FOR col =1 TO numberofcols 
1050 LOCATE 1， Col *2+5 
1060 PRINT field $ ( col ), “…” j 

1070 LINE INPUT array $ ( nuniberofentries, 
col ) 

1080 NEXT 

1090 LOCATE 15 ， 20：PRINT “More...Y/N “j 

1100 GOSUB 1230 

1110 IF y.n $ = “Y” THEN 1020 

1120 RETURN 

1130 ， 

1140 ’Quit —Sure? If not，do menu 
1150 CLS 

1160 LOCATE 10， 10 

1170 PRINT “Are you s u re...Y/N” 

1180 GOSUB 1230 

1190 IF y.n $ = “N” THEN 240 

1200 CLS：END 

1210 * 

1220 ’ Get yes/no as upper case Y or N 

1230 y.n $=UPPER $ C INKEY $ ) 

1240 IF y.n $ = " " THEN 1230 
1250 IF y.n $ < > “Y” AND y.n $ < > “N” 
THEN 1230 
1260 RETURN 
1270 » 
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1280 ’Press Space routine 

1290 LOCATE 1 ， 24«PRINT SPACE $ ( 38 ) j 

1300 LOCATE 7， 24 

1310 PRINT “Press Space Bar to continue” j 
1320 GOSUB 1450 

1330 a $= INKEY $:IF a $ = // u THEN 1330 
1340 IF a $ =CHR $(32) THEN RFTURN 
1350 GOTO 1330 
1360 f 

1370 ’display a record 
1380 CLS 

1390 FOR col = 1 TO uumberofcols 

1400 PRINT field $ ( col ), array $ (row, col 〉 

1410 NEXT 

1420 RETURN 

1430 ， 

1440 ’Clear Keyboard Buffer 
1450 CALL &BB03* RETURN 
1460 ， 

1470 ’Next/Alter/Delete/Meiiu 

1480 ’as Find routine sub-menu 

1490 LOCATE 1, 24：PRINT SPACE $(38> 

1500 LOCATE 9, 24 

1510 PRINT “Next/Alter/Delete/Meiiu” 

1520 GOSUB 1450 

1530 choice $= UPPER $ ( INKEY $ ) 
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1540 IF choice $ = " 〃 THEN 1530 

1550 choice = INSTR ( submenu $, choice $ ) 

1560 IF choice = 0 THEN 1530 
1570 *Menu or Next 

1580 IF choice $ = “M” OR choice $ = “N” 
THEN RETURN 
1590 " 

1600 IF choice $ = “D” THEN GOSUB 1710: 

RETURN 

1610 * 

1620 ’Amend Entry 
1630 CLS 

1640 FOR col = 1 TO numberofcols 
1650 LOCATE 1, col * 2 +5 

1660 PRINT “Enter new” j field $ (co 1 ; i “… 

•••i 

1670 INPUT array $ ( row, col ) 

1680 NEXT: RETURN 
1690 » 

1700 ^Delete row 

1710 FOR col = 1 TO numberofcols 

1720 array $(row, col 〉 = “” 

1730 NEXT«CLS»RETURN 
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第五章 设计一个游戏 


在本章中我们说明如何用文本和文本命令来设计一个简 
单的游戏。这个游戏使用了许多前几章描述过的技巧，通过 
它可俾你熟悉程序设计。 

在这个游戏中，你在 M 猫上移动一条蛇，并吃掉圆点。 
这条蛇不可以跑出屏箝的边框，也不可回身或跑过它的尾巴， 
并且这条蛇随着所吃的点数而变长。点在屏你上随机出现， 

如果你在点后面走得不够快，则记分为 0 并且点消失。你也 
可使用 TI ME 来把这个游戏加上吋间限制。 

编游戏程序 

边界 

首先，你要 J 屏幕划一个边界，这可通过箭头字符來 
做。当屏辎处于 MODE 1 时，顶边和底边都耑要 39 个字符 
长，我们可 以使用 STRING $ 命令。顶边和底边的程序 
为： 

240 LOCATE 1 ， 1'PRINT STRING $(39 ， 

241 ), 

260 LOCATE 1 ， 25»PRINT STRING $(39, 

240 ), 

上述的 STRING $ 命令也可写为 STRING $(39, CHR $ 
(241)) 和 STRING $ ( 39, CHR $(240 )) 。 
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边界的两边可用 FOR … NEXT 循环来做，屏幕的左边 
用右箭头，屏慕的右边川左箭头： 

280 FOR row = 2 TO 24 

300 LOCATE 1, r 0 w PRINT CHR $(243) J 

310 LOCATE 39, row: PRINT CHR $(242), 

320 NEXT 

边界的上面可用于显示记分： 

330 LOCATE 15, 1:PRINT “Score = 0 ” j 
340 score = 0 

字符 

下面我们需要定义字符 , 我们川小写的 x 做为蛇头，用 
一个阁案方块作 蛇身： 

420 top = ASC( “x” ) -body =207 

430 head $=CHR $ (top) : body $ =CHR $ 

(body ) 

这里我们使川变 fi 的脰 W 处：以后我们将检查是否某些字符 
处于 W. 幕上特定位迓》 

观察屏潞 

Amstrad 的 Basic + 能直接提•供的功能是屏蘇 
PEEK 。 有时，能边立任意给定屏箝单元的 ASCII 码内容 
是很有用的。我们町以写一个小程序来做这一点，并且把它 
放在程序的开头： 

40 MEMORY 43798 
50 address =43800 

60 DATA 197 ， 213 ， 229 ， 245 ， 205 ， 96, 187 
70 DATA 50, 23, 171, 241, 225, 209, 193, 201 
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80 DATA 0 

90 READ value 

100 IF value = 0 THEN 160 

110 POKE address, value 

120 address =addres$ + l 

130 GOTO 90 

现在，当我们想 PEER 屏慕时，则设置光标，并发出 CALL 
43800 来运行这段程序。然后， PEEK ( 43799 ) 将得出光标 
处字符单元的内容。 

移动 

下面我们将定义蛇的起始位置和移动方向。首先，我们 
看看如何在屏幕上移动蛇。 

当蛇移动时，慢漫地打印蛇头和蛇身字符是不可能的， 
但我们可以只保持蛇头和蛇尾的轨迹。我们使用一个两维整 
数组和两个指钋，一个指向头的坐标，一个指向尾的坐标。 
数组元素 ‘Snake% ( n.l ) ，给出蛇的列， ‘Snake% 

(n.2 ) ’ 给出蛇的行。 

首先， 我 们设蛇的长度极限， 

160 raaxlen =300 
然后设数组的大小： 

190 DIM snake% ( maxlen>2 ) 

变量 ‘head ’ 将指向坨失的坐际，我们让它先指向 
Snake % 的第一个数组元素，变量 ‘tail ，指向 snake% 的 
第三个 元素： 

480 head =1« tail = 3 

当 蛇头移 动时， 我们要计算它的新 坐标， 并存 入新单 
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元。如果 ‘head ’ 的值小于 1 ，再把它设为 ‘maxlen % 
以便反向使用 ^snake% ’ 中的元素，使其再回到 1 。对于 
‘tail ，也足如此。 

开始，我们设蛇长为三单位，并把头、中 N 和尾的坐标 
放入数组： 

510 snake%(head, 1 ) =20 ： snake%(head, 2)=12 
520 ’starting location for head 
540 snake% ( 2, 1 ) =20*snake % ( 2, 2 ) =13 
550 ’middle section 

570 snake% ( tail, 1 ) =20*snake% ( tail, 2) =14 
580 ’last section - tail 

上面程序中所川的数字使蛇大约出现在 DY • 菇的角落，但你也 
可以改变。 

我们每吋都要知道蛇头所在的行和列，为此我们使用 4 
个变 M 。 

600 oldcol = snake % ( head, 1 ) 

610 oldrow =snake % ( head, 2) 

640 newcol = oldcol 

650 newrow =oldrow 

: fci 后，我们在蛇的初始 K S 显 示蛇： 

760 LOCATE snake %(head, l)>snakc% ( head, 

2 ) 

770 PRINT head 

790 LOCATE snake % ( 2, 1 ) , snake% (2, 2 ) 
800 PRINT tail 

820 LOCATE s na ke%(tail, 1) ， snake%(tail, 2) 
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830 PRINT tail 

为了移动蛇，我们首先空出现有的蛇尾： 

930 LOCATE snake% ( tail, 1 ) ， snake% 

(tail, 2 ) 

940 PRINT “” j 

我们减少蛇尾的指针，以使它移向蛇头： 

970 tail =tail- 1 

1000 IF tail = 0 THEN tail =maxlen 

我们也必须替换头、尾或身的字符： 

1040 LOCATE snake% ( head, 1 ) j snake % 

(head，2 ) 

1050 PRINT tail $, 

改变方向 

我们使用 ‘z ’、 ‘x ’、 ‘/ ’ 和、 ’ 键来向左、 

右、上和下移动： 

460 keyboard $ = “zx/j ” 

读键盘的命令为： 

870 akey $ =INKEY $ 

880 IF akey $ = “” THEN akey $ =lastkey $ 

为了把所按的键转变为蛇头的移动，我们移动右或左键 
时，则对列进行减或加，移动上下键吋，对行进行加减（见 
图 5.1 ) 我们使用这样的 语句： 

IF akey $ = “z” THEN newcol = oldcol — 1 
IF akey $ = “x” THEN newcol = oldcol +1 
IF akey $ = “）” THEN newrow = oldrow + 1 
IF akey $ = “j ” THEN newrow = oldrow - 1 
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图 5. 〗很据上、下、右、左移动来修改行/列的坐标 
但下面的语句可得到更快更好的结果： 

1150 newcol = oldcol + ( akey $ = “z ”） 一 （ akey 
$= “x ”） 

1190 ne'vrow = oldrow — ( akey $ = “/”）+ 

(akey $ = “j ”） 

谈键盘后，我们不马上修改蛇头的坐标，因为我们需要 
番看新坐标在什么地方。蛇头不能和蛇身重叠，也不能超出 
边界，所以我们用变 S ‘newcol ’ 和 ‘newrow ’来暂时保 
存蛇头的新坐标： 

^SO IF newcol 2 OR newcol 38 THEN 2400 
1190 IF newrow < 2 OR newrow >24 THEN 2400 
2400 GOTO 200 

这 M, 200 行表示进入另一 : V 游戏的起点。 

为了测试蛇头是否和蛇身重合，我们用下列语句： 

1210 LOCATE newcol, newrow 
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1220 CALL 43800：check =PEEK ( 43799 ) 

1230 IF check = top OR check =body THEN 
2400 

现在我 们 陡蛇头移动到新位迓，修改头指计，把辦坐标 
放入数组并修改 ‘lastkeys 
1080 head =head - 1 
1090 IF head = 0 THEN head =maxlen 
1250 PRINT head $, 

1280 snake% ( head, 1 ) = ne wcol 
1290 snake% ( head, 2 ) = newrow 
1320 oldcol = newcol 
1330 oldrow = newrow 

1390 IF iNSTR ( keyboard $,akey $)=0 THEN 
1450 

1 420 lastkey $ =akey $ 

1540 GOTO 870 

我们必须给出蛇的初始移 动： 

700 lastkey $ = “j ” 

现在 你再加入： 

200 REM 
210 MODE 1 
来完成这个程 j> 并可运行。 

产生随 a 数 

此游戏中的一个基 . 艮于程誠在屏雜随机位较产生并 
显示 1 一 9 之间的随机数的程序 , 为此，我们用 UEF FN 
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定义一个产生随机数的 功能： 

370 DEF FNR(n) = INT( RND(l)*n) + 1 

随机数子程序 如下： 

1580 randnum =FNr ( 9 ) 

1600 randcol =FNr ( 36 ) +1 
1620 randrow =FNr ( 22 ) +1 
1660 randnum $ =STR $ ( randnum ) 

1680 randnum $ =MID $ ( randnum $, 2 , 1 ) 

1700 LOCATE randcol, randrow 

1720 CALL 43800：check =PEEK ( 43799 ) 

1730 IF check =body OR check = top THEN 
1600 

1740 PRINT randnum $, 

1780 RETURN 

为了跟踪随机教，我们使用一个有 0 或〗的二值 
‘flag ，来表示随机数是否在屛幕上。我们设 flag 的初始值 
为 0 : 

1450 IF randflag = 0 THEN GOSUB 1580 
我们也必须在随机数子程序中加入一行把 ‘randflag » 
设为 1 来指出正在显示一 个数： 

1760 randflag = 1 

为了知道蛇是否移到一彳、随机数处，如果如此，則改变 
计分，我们在蛇的移动程序中 加入： 

1350 IF newcol = randcol AND newrow = 
randrow THEN GOSUB 2000 
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减少数字 


游戏的一部 分是： 随着时间增加出现的教字减少。为 
此，我们需要一个随时调用的子 程序： 

1500 IF randflag=l AND Fnr(20) < 3 THEN 
GOSUB 
1820 

1820 randnum = randnuni — 1 

1840 IF randnum 0 THE N GOSUB 1660: 

RETURN 

1880 LOCATE randcol, randrow 
1890 PRINT “ ” j 
1910 randflag = 0 
1930 randcol = 0 : randrow = 0 
1950 RETURN 

记分 

记分子程序本身是十分简嗔妁。我(门只湄把随机数加到 
记分上，显示新记分并把随机数标志 So 以表示屏硌上没介 
数： 

2000 score = score + randiiu ni 

2020 LOCATE 22, 1:PRINT score, 

2040 randflag = 0 

2050 randcol = 0 : randrow = 0 

2370 RETURN 

为了使坨随着吃的点教变长， 我们使 用蛇移动程序，但 
去掉 “ 删除尾 ” 部分 j 
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2080 FOR inc =1 TO randnum 
2150 akey $ = inkey $ 

2160 IF akey $ = “” THEN atey $=lastkey $ 
2170 newcol = oldcol + ( akey $ = “z” ) -(akey ^ 
=“ x ”） 

2180 newrow =oldrow - ( akey $ = “/’’）+ 

(akey $ = “j ”） 

2190 IF newcol < 2 OR newcol / 38 THEN 2400 
2200 IF newrow < 2 OR ne wrow >24 THEN 240Q 
2210 LOCATE snake% ( head, 1 )snake%(head, 

2 ) 

2220 PRINT tail $i 

2230 LOCATE newcol, newrow 

2240 CALL 43800：check =P£EK ( 43799 ) 

2250 IF check = top OR check = body THEN 

2400 

2260 PRINT head $ ， 

2280 head =head — 1 

2290 IF head = 0 THEM head =maxlen 
2300 snake% ( head, 1 ) = newcol 
2310 snake% ( head, 2 ) = newrow 
2320 oldcol =newcol 
2330 oldrow =newrow 

2340 IF INSTR(keyboard $, akey $) = 0 THEN 
2360 

2350 lastkey $ =akey $ 
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2360 NEXT 
2370 RETURN 

现在你有了一个完整的程序，你也可很容易地修 改它。 
下面是这程序的全部： 

10 RKM + + + + + + + + Snake + + + + + + + + 
20 ’Set v p machine code routine 
30 ’to PEEK the text screen 
40 MEMORY 43798 
50 address = 43800 

60 DATA 197, 213, 229, 2 45, 205, 96, 187 

70 DATA 50, 23, 171, 241, 225, 209, 193, 201 

80 DATA 0 

90 READ value 

100 IF value = 0 THEN 160 

110 POKE address, value 

120 address = address + 1 

130 GOTO 90 

140 ' 

150 ’Set up snake array 
160 maxlen =300 

170 ’ruaxken is longest snake can be 
180 DIM snake% ( maxlen, 2 ) 

190 ’snake array, holds coords of head 
200 MODEl 
210 f 

220 9 Draw a Border 
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230 LOCATE 1 ， 1:PRINT STRING$ (39, 241 ) 多 
2 40 9 Top line 

250 LOCATE 1, 25: PRINT STRING $( 39, 

240 ), 

260 9 Bottom line 

270 FOR row = 2 TO 24 

280 9 Sides - Left，Right 

290 LOCATE 1, row：PRINT CMR $ ( 243 ), 

300 LOCATE 39, row:PRINT CHR $(242>! 

310 NEXT 
320 > 

330 LOCATE 15, 1:PRINT “Score = 0 ” ； 

340 score = 0 

350 9 - Set up variables etc - 

360 f 

370 DEF FNr(n)=INT( RND(1 ) *n ) +1 
380 ’user function — genera tcs random 
390 ’numbers in the range 1 to n 

400 ’and tail:, 1 is col, 2 is row 
410 ， 

420 top=ASC( “x” ) *body =207 

430 head$ =CHR$ ( top ) : tail$ =CHR$(body) 

440 ’snake characters 

450 ， 

460 keyboard $ = “zx/j ” 

470 9 key controls - left ， right ， up, down 
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480 head =1 * tail = 3 

490 ’head & tail point to array snake % 
500 ， 

510 snake% (ead，1 ) =20:snake% ( head，2 
12 

520 ’starting location for head 
530 f 

540 snake% (2, 1 ) =20*snake% ( 2, 2 ) =13 
550 ’middle section 
560 ， 

570 snake% ( tail，1 ) =20* snake % ( tail, 2 ) 
14 

580 ’last section - tail 
590 ， 

600 oldcol = snake % ( head, 1) 

610 oldrow = snake% ( hcad, 2) 

620 ’oldcol/row are col/row coords 

630 ’for snake ’s head 

640 newcol = oldcol 

650 newrow = oldi.ow 

660 , aewcol/row are for updating 

670 , head coords — see main routine 

680 ， 

690 ， 

700 lastkey $ = “j ” 

710 ’snake starts heading up the screen 
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720 , - End of Definitions - 

730 ， 

740 9 Draw the Snake 

750 ’Print snake* — head, middle & tail 

760 LOCATE snake % ( head, 1 ) snake% 

(head, 2 ) 

770 PRINT head$j 
780 1 

790 LOCATE snake % ( 2, 1) ， snake% ( 2, 2 > 
800 PRINT tail$j 
810 ， 

820 LOCATE snake % ( tail, 1) ， snake，2 ) 
830 PRINT tail? j 
840 f 

850 ’Now start the game itself 
860 MimilMMain Routine III!!!!!!! 

870 f 

880 akey$ =INKEY$ 

890 IF akey $ = “” THEN akey $ =lastkey $ 
900 9 if no key pressed, carry on in 

910 ’previous direction 
920 J 

930 LOCATE snake% ( tail, 1) ， snake% 

(tail，2 ) 

940 PRINT ^ i 
950 9 erase tail 
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960 ， 

970 ， tail = tail-l 

980 ’ decrement tail pointer 

990 J 

1000 IF tail = 0 THEN tail =maxlen 
1010 ’ force tail to far end of array 

1020 9 if tail points to zero 

1030 J 

10 40 LOCATE snake% ( head, 1)，snake % 

(head, 2 ) 

1050 PRINT tail? j 
1060 , 

1070 9 replace head character with ta; 

1080 head = head - 1 

1090 、 ’decrement head pointer 

1100 IF head = 0 THEN head =maxlen 

1110 9 force to far end if points to start 

1120 ’ Update row nnd column values 

1130 9 is = location of he; d 

11 40 9 Using Boolean logic 

II 5 O newcol =oldcol+( akey$ =” z’ ) —(akey $ 



1160 newrow =oldrow - ( akey $=“/”）+ 

(akey $=“；”） 

1170 f 

1180 IF newcol 〈 2 OR newcol > 38 THEN 2400 
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1190 IF newrow \ 2 OR newrow > 24 THEN 2400 
1200 ’ if off screen, end of game 

1210 LOCATE newcoU newrow 
1220 CALL 43800：check =PEEK ( 43799 ) 

1230 IF check = top OR check =body THEN2400 

1240 9 Run into self 

1250 PRINT head $j 

1260 ’ redraw head in new location 

1270 " 

1280 snake % ( head，1 ) =ne wcol 
1290 snake% ( head/ 2 ) =newrow 
1300 ’update coords in snake array 
1310 ， 

1320 oldcol =newcol 
1330 oldrow =newrow 
1340 f 

1350 IF newcol =randcol AND newrow = rand- 
row THEN GOSUB 2000 
1360 ’hit the random number 
1370 9 so do score routine 

1380 » 

1390 ， IF INSTR( keyboard?, akey$ ) = 0 

THEN 1450 

I 4 OO 9 if no valid key pressed, 

1410 9 leave lastkey$ as is 

1420 lastkey $ =akey $ 
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1430 9 set lastkey pressed to current key 

1440 ， 

1450 IF randflag= 0 THEN GOSUB 1580 
1460 9 randlag is zero if no random 

1470 ， number is on the screen 

1480 9 if it’s zero - Place a new one 

1490 ， 

1500 IF randflag; =1 AND FNr ( 20 ) < 3 THEN 
HOSUB 1820 

1510 ’decrement any random number 
1520 9 at random monients 

1530 ， 

1540 GOTO 880 

1550 9 repeat main routine 

1560 REM - Random numbers routine 

1570 f 

1580 rendnum =FNr ( 9 ) 

1590 ’ randnuni is 1 to 9 

1600 randcol =FNr ( 36 ) + 1 
1610 9 randcol is 2 to 37 

1620 randrow =FNr(22) + 1 
1830 ’ randrow is 2 to 23 

1640 y 

1650 ’ set cursor 

1660 randnum$ =STR$ ( randnuni ) 

1670 ， convert randnum to a string 


90 



1680 randnum $ = MID $ ( randnum $ 9 2,1) 

1690 ’ strip leading and trailing spaces 

1700 LOCATE randcol，randrow 

1710 9 lodate cursor 

1720 CALL 43800 ： check = PEEK ( 43799 ) 

1730 IF check = top OR check = body THEN 
1600 

1740 PRINT randnum $j 
1750 , display randnum 
1760 randflag = 1 

1770 9 set randflag - no w have number on screen 

1780 RETURN 

1790 ’ - End of Subroutine - 

1800 ， 

1810 ’ Decrement random number routine 

1820 randnum = randnum — 1 

1830 ’take one from randnum 

1840 IF randnum > 0 THEN GOSUB 1660* 

RETURN 

1850 ’if it 7 s not zero, gosub display 
i860 ’ random number routine & return 

1870 9 

1880 LOCATE randeol, randrow 
1890 PRINT “” j 
1900 9 erasse randnum 

1910 randflag = 0 
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1920 ’ set flag to zero ( no randnum ) 

1930 randcol = 0 * randrow = 0 
1940 9 null these coords 

1950 RETURN 

I960 9 - End of Subroutine - 

1970 ， 

1980 REN increase length of snake 
1990 f 

2000 score =score+randnum 

2010 9 uPdate score 

2020 LOCATE 22 ， 1:PRINT score! 

2030 9 and Print it 

2010 randflag = 0 

2050 9 reset randflag’ d randnum now ) 

2060 randcol = 0 1 randrc 0 
2070 ’reset coords 
2080 FOR ihc =1 TO randnum 
2090 9 for the value of the score 

2100 9 do the following 

2110 9 most of this a rePeat of 

2120 ’ the main routine 

2130 9 and allows the snake to grow 

2140 ， to a maximum of maxlen units 

2150 akey$ =INKEY$ 

2160 IF akey$ = “ ” THEN akey $ = last key $ 
2170 newcol =oldcol + ( akey $ = “z ”） 一 
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(akey $ = “x ”） 

2180 newrow =oldrow - ( akey $ = “/”）+ 

(akey $ = “j ”） 

2190 IF newcol < 2 OR uewcol 38 THEN 2400 
2200 IF newrow 2 OR newrow 24 THEN 2400 
2210 LOCATE snake % ( head, 1) ， snake% 

( head, 2 ) 

2220 PRINT teil $.i 

2230 LOCATE newcol, newrow 

224 0 CALL 4 3800 ： check = PEEK ( 43799 ) 

2250 IF check = toP OR check = body THEN 
2240 

2250 IF check = toP OR check = body THEN 
2400 

2260 9 Run into self 

2270 PRINT head$j 

2280 head = head — 1 

2290 IF head = 0 THEN head = maxlen 

2.300 snake% ( head, 1) =newcol 

2310 snake% ( head，2 ) = newrow 

2320 oldcol = newcol 

2330 oldrow =newrow 

2340 IF INSTR ( keyboard $, akey $ )=0 
THEN 2360 

2350 lastkey $ =akey $ 

2360 NEXT 
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2370 RETURN 

2380 - END of Subroutine - 

2390 » 

2400 GOTO 200 

2410 9 run from start if snake’s run 

2420 9 off the screen 
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第六章数字'和逻辑 

表示法 

为了利用程序更好地控制计箅机，你应熟习三种记数系 
统： 十进制、二进制和十六进制。它们的操作规则是相同 
的，所以很容易傾。 

这2个系统都足使用教学的指数规定。一般的指 教衣示 
是在一个数字的右上角个小的数字，如3 2 。 但 Amstrad 
不这样表示.它使用上箭头符号•例如 ： 4 t 2 表示4的 平方。 

十进制 

和大多教计算系统一样，十进制依赖于位的概念 ： 3 在 
30 和 300 屮有不冏的值。数字的位置称为个、十、百、千 
等。如采我们从右到左衣示这些位置，则可得到10 f 0, 10 
t 1, 10 f 2, 10个3等，即各位都可用 10 的几次幂来表示。 
这样，计算出各位的值，再把它们加到一起，便得到一个数 
的值。 例如* 952 可这样 表示： 

2x(10 f 0) + 5x(l0 t 1) +2x(10 t 2) =925 

我们 as 这些计算中使用10,是因为10进制系统只有0〜 
9 这十个不同的数，所以我们以 10 为基本 计数。 

二进制 

在二进制系统中只灯0和1两 个数。 使用二进系统是因 
为微机可以使腓值操作。二进数系统中，每位的值为2的儿 
认¥.因此，二进数 10 表示： 0 + lx( 2 t 1)= 2 (十进表 
示）。每个二进教位只有两个值，所以以 2 为^来计算各位 
的值。 紐个存贮单元 （ 1字节）可放8个二进数位，下面是 
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0 〜 7 位的值表： 

数位 十进值 

0 1 

1 2 

2 4 

3 8 

4 16 

5 32 

6 64 

7 128 

Amstrad 有把十进制数转换为二进制教的命令 BIN $、 
‘PKINT BIN $(9) ，显示出1001。你也可•使用两个参数 
来定 X 要显示多 少位。例如： 4 PRINT BIN $ ( 9 、 8), 
则显示00001001。如采你省略了一个参数， Amstrad 则产生 
必要的位数•你可使用的: fcUc 数为65535 ,最小数为- 32785 c 
BIN $最多可产生16 位数, ‘PRINT BIN $ ( - 1 ) ’产 
生16个1。如果你定义的位数大于16，则按应该的位效来显 
示。 注意： 所得到的结采足一个字符串，不是一个依，还耑 
用 MID $， (' EFT $ BRIGHT $ 进行处理。 

十六进制 


汇编语言多使用 1 G 进制表示法， 缩写为 ‘hex ’。它以 
16为基，用字母 A 〜 F 表示十进制的10〜15。每个数位的值 
適过16的幂来计箅。下面是一个16进制记 数裘： 


十进制 

十六进制 

十进制 

十六迸制 

0 

0 

17 

11 

1 

1 

18 

12 

❹6 






2 

2 

19 

13 

3 

3 

20 

14 

4 

4 

21 

15 

5 

5 

22 

16 

6 

6 

23 

17 

7 

<7 

/ 

24 

18 

8 

8 

25 

19 

0 

9 

26 

1A 

10 

A 

27 

1 B 

11 

B 

28 

1C 

12 

C 

29 

ID 

13 

D 

30 

IE 

14 

E 

31 

IF 

15 

F 

32 

20 

1 G 

10 




Amstrad 用 HEX $ 命令把十进数转换为十六进数，. 
‘PRINT HEX $ ( 249 ) ，产生 F 9。 它不能处埋大于 
65535的数 • 

为了方便，我们川‘& ’沒示 16进数转换为十进数。 
‘PRINT & FF ，将产生255。 

HEX $ 足一个字符串功能，因此必须用字符串操作来 
处理结采， 

AmstraU 仅用16 位整数 来进行16进数的处埋， 如縣 i 
使用一个很大的十进数，将得到一个负数 。 ‘PRINT & 
7 FFF ，产生32767， ‘PRINT & 8000，产生-32768。为 
了避免这一点，你可以定义--个自己的功能来把 16 进数转换 
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成可用的十 进数。例如： ‘DEF FN hx ( n )= - ( 65536 * 
( n <0)- n ) ’， 此时 ‘PRINT FN hx (& FWF ) ，将 
产生65535, 而不象 ‘PRINT & FFFF ，产生 -1。 

.布尔逻辑 

布尔逻 辑是一种处理数字的方法，它包括 AND ，0 R ， 
NOT 以及非常复杂的操作。 

AND 经常用于测试两个 条件： 如采两者都满足，则产 
生某个动作。 OR 则是两个条件中只要有一个满足，則产生 

某个动作。 

AND , OR 和 NOT 在 Basic 程序中，通常和 IF’ …… 
THEN — 起使用， 

1010 IF lives =2 AND SCORE ) 500 THEN 
PRINT “ You’re not doing very well so far ” 
通常川括号把条件括起来，以易读 一些： 

100 IF (lives : =2) AND (SCORE < 500 ) THEN 
PRINT “You're not doing very well so far” 
你可以画一个‘真值表’来使布尔操作易馈。例 如： 
‘IF ( count = 3 AND ( value = 10 ) THEN GOTO 
2000 ，的真值表如下： 


count = 3 ? 

value = 10? 

GOTO 2000? 

YES 

YES 


YES 

YES 

NO 


NO 

NO 

YES 


NO 

NO 

NO 


NO 

奴当 count = 3 和 w 

due = 10 两者都成立时, 

200 行才得: 


.行。 
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如果把上语句改为： ‘IF(couut=3 ) OR (value: 
10 ) THEN GOTO 2000 % 则真值表 如下： 


count *= 3 ? 

ualue = 10? 

GOTO 2000? 

YES 

YES 

YES 

YES 

NO 

YES 

NO 

YES 

YES 

NO 

NO 

NO 

当有一个糸件为 ; Ti 时， 

则执行 2000 行。 



真和假 

在我们使用 YES 和 NO 的地方，布尔逻辑使用真和假， 
而计箅机使用 -1 和0。 

使用宾假关系可使程序 W 缩短程序。例如 ： ‘IF 
varible = 3 THEN flag = - 1 ELSE flag = 0 ，可变为 
‘flag = ( varible = 3 ) % 

你可使用这个技术替换多个 IF … THEN 语句,下面两 
个程序是相等的： 

999 REM IF …丁 HEN version 

1000 IF ake . y $= “ z ” THEN xcoord - 1 
1010 IF akey $ = “ x ” THEN xcoord + 1 
1020 IF akey $= “j ” THEN ycoord - 1 
1030 IF akey $= THEN ycoord +1 

999 REM Boolean version 

1000 xcoord = xcoord + ( akey $ = “ z ”）— 

(akey$ = “X ”） 

1010 ycoord = ycoord + ( akey $ = “j ” = ） 

使用这样的布尔逻辑产生相当难读的程序，但执行起来 
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郵比 Ili ■… THEN 语句快。 

位测试 

布尔 操作可以用于测试宇节中数字位的位 H 。 例如： 

* PRINT 8 AND 2，我们得到的结采为0。因为2的二进 
制表示法为00001000, 2 的二进制表示法00000010。当在两 
个数之间似 HAND 时，当且仅当两个数的同一位都为1，則 
则结果中的这位也为1。这个规则农示 如下： 


笫一位 

AND 

第二位 

结采 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

对于 8 和 2 我们使用这个规则，则 (Y : 

00001000 ( 8 ) 



00000010 ( 2 ) 

00000000 结果= 0 

OR 的规则为，只要•个操作数的某位为1，则结果的这 

位为 

OR 

•位 3二位 结果 



4 8 OR 2，的结果为, 
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00001000 ( 8 ) 

00000010 ( 2 ) 

00001010 结呆 =(10) 

还有一个操作为 XOR ， 它类似于 OR ， :不同点在于：两 
个操作的同-•位都为1时，结果中的这位却为0。它的规则 

如下： 

XOR 

第…位 屯二位 结果 

0 0 0 

0 I 1 

1 0 1 

1 1 0 

位分配 

我们可以使用二进制逻辑米利用一个字节存 贮大坩 信 
息。 kh 我们看 一个 例子。我们假定一个中学有一个数据库， 
老师耑要知道一个学生正在上 哪一门课。 每个学生可上一对 
课中的一门 课： 法语/徳语，物理/化学，地理/历史，木 
工/金厲工，生物/地质。紐个学生可以是一•个男孩成一个女 
孩，可以在…彳高智力组或一个低智力姐,并且可以安排 
«0 ’级或 CSE 级考试。因此，冇8 t 不同的对。我们圯一 
个字节农示一•个学生所对应的所 ff 对。 例如： 女学生的字节 
在第-:位为0，而男学免为这个字节的每位都对应一个 
十进制如采这个宇节为10100111则有值128 +32 + 4 +2 
+ 1 =167。下而我们说明如何 )1] 这个方法进行编码、 译码。 

后面我们给出 了使用 这样的位分配技术进行编和译码的 
程序。我们把课名和其它标志放在一个两维串变 fl ‘ attri - 


101 



bute $ ( 8, 2 ) ，中，共有 8 个标志，拇个标志有0、1 
两个值，如：男为1,女为0。下而为这个程序： 

10 ’Bit MaPPed data 
20 ， 

30 DATA 0 level, UPPer, Female, BioloSy, 
woodwork, GeoS raPhy> Physics, French 
40 DATA CSE, Lower, Male ， Geology, Metal¬ 
work, History, Chemistry, German 
50 ， 

60 9 Load Arrays 

70 DIM attribute? (8,2) 

80 FOR attribute = 1 TO ^ - 
90 READ attribute $ ( attribute, 1 ) 

100 NEXT 
110 f 

120 FOR attribute = 1 TO 8 

130 READ attribute $ ( attribute, 2 ) 

140 NEXT 
150 ， 

160 ZONE 20 
170 ，MAIN MENU 

180 CLS ： LOCATE 17, l : PRINT ^SELECT^ 

190 LOCATE 10， 7 

200 PRINT “A … Assign a value” 

210 LOCATE 10, 9 

220 PRINT “C.“Check a value” 
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230 LOCATE 10， 11 
240 PRINT “E … End” 

250 * 

260 akey $ = UPPER $ ( INKEY $ ) 

270 choice = - ( akey $ = “A” )-2 * ( akey $ 
=“C” )-3*( akey $ = “E” ) 

280 » 

290 IF choice = 0 THEN 260 
300 ON choice GOSUB 350, 460 
310 IF clxoice= 3 THEN CLS ： END 
320 GOTO 180 
330 » 

340 ’Data Entry 

350 CLS 1 byte = 0 

360 FOR each.bit = 0 TO 7 

370 PRINT attribute? ( each.but + 1, 1 ) j 

“… Y/N ” ， 

380 GOSUB 570 

390 IF akey $ - “Y” THEN byte = byte + 2 
each.bit PRINT attribute? ( each.bit + 1 ， 1 ) 
ELSE PRINT attri bute $ ( each. bit + 1» 2 ) 
400 NEXT 

410 PRINT*PRINT “Value = ” j byte 
420 GOSUB 620 
430 RETURN 
440 » 
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4S0 * Check a value 

460 CLS* PRINT “Enter value” 

480 FOR each.bit = 0 TO 7 
490 LOCATE 15, each.bit +7 
500 dec.val = 2 ^each. bit 
510 IF(by te AND dec. val) - dec. val THEN 
PRINT 

att l'ibute $ ( each.bit + 1 > 1 ) ELSE PRIN’l 
attribute $( each.bit + 2) 

520 NEXT 
530 GOSUB 520 
540 RETURN 
550 * 

5(30 ’ Y/N Subroutine 

570 akey$ =UPPER$ ( INKEY$ ) 

580 IF akey$ : > “Y” AND akey $ < > “ N ” 
THEN 570 
590 RETURN 
600 ’ 

610 ’press space Subroutine 

620 LOBATE 10, 24 

630 FRINT “press space to continue” 

640 IF INKEY(47) = - 1 THEN 640 
650 RETURN 
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数字处理函数 

Amstrad 有宕下 -特殊函数,可使数字处理较容易。下 
面介绍一些较常用的。 

MOD (漠） 

MOD 用于建立一个数对于另一个数的模，它有点类似 
于除法中的余数。 MOD 回送一个数除以另一个数后所余的 
整数值。下表可以此你对 MOD 有- - 个较洁楚的概念： 


3 MOD 1 0 

2 MOD 99 2 

3 MOD 7 3 

991 V 10 D 1 0 

1 MOD 3 1 

5 MOD 2 1 

99 MOD 10 9 

83 MOD 40 3 


象你 吞到的 -• 样，许多数 MODI 后，结果为 0， 因为任何 
整数除1 后都没打余数。 

MIN 和 MAX 

MIN 和 MAX 从一列数戍犮过式中回送设小数 或敁大 
数， ‘ Smalles t = MIN ( 1 、 2 、 3 、 4 ) ，把 1 赋给变 
量 Smallest 。 你也可以使用变量和表达式，如 : ‘biggest 
= MAX ( number 1 , value 3 , count ) ，。 

ABS 

ABS 除掉数值或表达式的负号。例如： ‘PRINT 
ABS ( -20 ) ，产生 20， ‘PRINT ABS ( 99—199 ) ，产 
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生 100。 

SGN 

SGN 回送- X , 0或】.这三个沽之一。可用此来测试数 
字、变量或表达式是正、负还是0。例如， < exPr.siga = 
SGN < 33 -39 ) ，把赋给变量 ‘ exPr.sing ’，因为33 
-39 产生一个负数。如果结果为0，则回送0，如果结果为正 
数，则回送1。 

PI 

PI 是一个系统常数，就是我们称为的圆围率。 PI 经常 
在三角学中计数圆的而积等。在一个功能定义中，我们经常 
这样定义圆的面积： 

10 DEF FN ( area ) = PI * radius ^ 2 
LOG , EXP 和 LOG 10 

LOG ( n ) 回送数 n 的自然对数，这个对数是以 e 为底的 》 
EXP ( n ) 为反对数，它回送 e 八！ I ，因此 EXP ( LOG 》 
(n ) 回送 n 。 

LOGIOC n ) 回送以 10 为底的数！ i 的对数。对数使大数 
的处理较简单，例如:两个大数相乘的一个较快的方法是，先 
查两个数的对数，把它们加在一起，然后由反对数得出 结果。 
CINT 和 CREAL 

这两个函数把表达式转换为不同的数据类型 。 Cl N T 把 
数转变为整数， CREAL 把数转变为实数。 * CINTC 9. 
999 ) ，产生10。 CREAL 可这样 使用： 

10 x % = 9 
20 x%=x%+0.5 
30 PRINT CREAL ( x% + 0.5 ) 
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UNT 

有两个方法可处理 10 进数的 16位 （ 两字节）表示法。你: 
可使用全部16位来表示十进数，此时的数字定围为0〜 
65535. 标准的方法是：任意十进数位的值可由2的幂来表 
示，这些位是从右到左计数。 

但是，在这个系统中你不能表示负数。一个可行的方法 
是用第 15位做标志，来表示负数。这时可表示的范围为 
-32768 〜+ 32768。负数可用2的扑码进行转换， 

UNT 把一个无符号的十进数转换成有符号的 2 的补 
码。这用于汇编 语言裎 序设计的计算需要。 
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第七章 机器码 


机器码是计算机内部使用的语言。它很难学，但执行起 
来很快。机器码没有象 LOCATE 或 PRINT 这样的命令，它 
需要写一个程序来执行这样的指令，然而其执行速度迅快于 

Basic 。 


寄存器 

机器码使用寄桦器。寄存器 ffl 字母 A 〜 H 和 L 来衣; j ), 
并且立一些命令令可一次使用 2 个饵存器，寄存器对力 
AF , BC , DE 和 HL 。 A 寄存器足蚊常用的 , ‘A ’为标准 
的累加器。 


机器码指今 

在 Z 80 机的指令枭合中有这样的指令： 把数犰 装入 , o -存 
器、把寄存器的内容存入主存等。 

O P — cades ( 操作码） 

机器码程序足一组字节。每糸指令或命令有一个对应的 
数字衷示，并把这些数称为操作码。例如：这样两字节的数 
0000011010000000 C 十进数6和128 ) 表示把128裝入 B 寄存 
器。第一个字节是‘装入 B ，指令，第二个字节袋示操作 

数. 

助记符 

机器码和二进数从表 iui 上 B •来足很难区分的 ，而 . R 也 
很难记忆。但通过侦用汇编语言可解 决这个 问题。 汇编语言 
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利用缩写符号来表示机器码，前面那个例子可用 ‘LD B， 
n * 来表示 • 这样的缩写符号称为助记符。汇编语言程序由 
劢记符和数据组成，一个叫做汇编的程序可以把它们转变为 
机器码，并存入 RAM。 

Basic 和机器码混用 

你不必用汇编语言写整个程序。 Basic 有一个非常有用 
的特性，就是在 Bas 1C ]S 序中，你可以凋用机器码子程序。 
你可以凋用在驻存在 ROM 中的程序来完我一些 Basic 不可 
能做的操作。 

机器码程序装入主存后，可以通过 Basic 命令 ‘CALL » 
再加上一个地址来使机器执行这个程序。此时，机器将暂 
停 Basic 锃序，跳到给出的 RAM 地址去执行机器码指令。如 
采机器码程序的末尾有一个助记符 ‘RET ’，则返回调用程 

序。从 Basic 程序凋用机器码程序的过程与 GOSUB. 

RETURN 类似。 


机器 码程序 

我们将给出一些你可在 Basic 程序中调用和使用的机器 
码程序，研究这些1序，将课你学习汇编语言涅序设计。在 
这之前，我们先讲几个有关 Basic/ 机器码连接的几个重要问 

题。 

因为 Basic 程序及《数涯要占用 R AMK] 存贮5间，因此 
我们必须告诉 Amstrad 保留，些序浯,以阌 Basic 不港韦 
这些存器。如果我 (门不 这洋妝，数组中的敌遛存贮可能复 
盖机 器码程 序。这个保留操作是由 ME MORY 命令再加上一 
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个地址来完成的。这就使程序不能使用高于给定地址的存贮 
空间，因此可把机器码程序从这个地址开始存放。如果我们 f 
望一个机器码程序从地址43880开始，则可用命令 *MEMO 
RY 43879 »。 当机器码程序装入存贮器后，我们用 CALL 
43 880来使这个子程序执行。 

卷动屏幕 

第一个机器码程序是最简单，它允许你把屏慕 M 示向上 
或向下移动一行，如果使 JT1FOR … NEXT 循环来调这个程 
序，则可按你要求卷动屏猫。 

Amstrad 的 ROM 中有若干饥器码程序，它们不能用 
Basic 命令直接调动。其中一个程序叫做 SCR HW ROLL 
用于移用屏猫的 M 示行，它的起始地址为 &13C 4 D ( 十进制 
为50395〉。屏猫卷动的方向依赖于13寄存器的内容。如采 B 
寄存器为0,则屏縣下卷，否则，屏蘇上卷。新行的颜色取 
决于寄存器 A, A 通常为0，即默认的深蓝色。 

为了使屏幕卷动，首先要把数姐装入 B 寄存器，这条指令 
的助记符为 ‘LD B，#n’。 这里 n 足装入 B 中的数， “井” 
表示寄存器是裝入给定的值。 LDB 的操作码为6,这是机器 
妈程序的第一个字节。我们将从地址43880开始汇编，因此 
我们用 Basic 命令 “POKE 43880，6” 把6装入这个地址。 
下一个字节是指示卷动方向的数值。为了向上卷，我们使用 
VOKE 43881, 255’。为了向下卷我们使用 ‘POKE 
43881, 0，。 

这下一步是 CALL 这个 ROM 程序。这个程序的起始地 
址为 &BC 4 D (十进制为 50395), 所以调用指令为 ‘CALL 
5 0395。 但是 我们不能在单字节中表示一个大于255的数，因此 
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要把这个地地分成两个字节表示。用十六进表示法做这一•点 
很容易。50396的16进数为 BC 4 D , 所以低字节为 4 D (十进 
数为77 ) ，高字节为 BC (十进数为188)。当 ROM 中的程序执 
行完后，我们需要返回 Basic 这只需使用助记符 

iRET / 即可。 现在，我们有了下面的涅序及 数据: 

助记符/数据 十进数值 

LD B , #0 (06, 0 ) 

CALL 40395 ( 205, 77, 188 ) 

RET (201) 

下一步是把操作数装入存贮器。我们采用十进制数，并 
把它们放入 DATA 语句，然后把它们读出并放入给定的 
RAM 地址。 Basic 裝入程序如下： 

10 DATA C , 0 , 205, 77, 188, 201 
20 MEMORY 43879 «address =43879 
30 FOR count =1 TO 6 
40 READ value 

50 POKE address + count , value 
60 NEXT count 

下面的程序是使用这个机器码程序的表演，并假定，机 
器码程序巳装入存贮器： 

70 CLS , FOR char =65 TO 89 
80 PRINT STRING ? ( 38 .char ) 

90 NEXT char 
100 FOR up =1 TO 10 
110 POKE 43881, 255 
120 CALL 43880 
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130 NEXT up 
140 FOR down = 1 TO 10 
150 POKE 43881, 0 
160 CALL 43880 
170 NEXT down 
180 GOTO 100 
―个较 复杂的序 

T 个程序较复杂一点，但丛本上完成与前面讲过的程序 
相 M 的 X 作，但它讶通过把不 ㈣ 的值裝入 43870 单元来 使卷 
出的行有的颜色。你也可通过把不同的值装入 43871 单 
元来规定卷动的行数。 

皆先， 我们列出这®机器码的地址、助记符， 16 进码和 
十 进值: 


地址 

助记符 


操作码 / 数据十进值 

43870 

LD B, 

#A 

06 

6 

43871 



A 

10 

43872 

LD A, 

#0 

3E 

62 

43873 



0 

0 

43874 

PUSH BC 

C5 

197 

43875 

PUSH 

AF 

F5 

245 

43876 

LD B, 

#FF 

06 

6 

43877 



FF 

255 

43878 CALL &BC4D 

CD 

205 

43879 



4D 

77 

43880 



BC 

188 

43881 

pop AF 

FI 

241 
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43882 

POP BC 

Cl 

193 

43883 

DJNZ 

10 

16 

43884 


F 5 

245 

43885 

RET 

C 9 

20] 


在这个程中， B 做为一个 FOR ... NEXT 循环的计数器, 
使 438 H 的内容指示将要卷动的行号。 A 寄存器中的值为新行 
颜 色码。 地址43874和43875中的指令把 BC 和 AF 这两个寄存 
器对送入堆栈 （ 一1、哲存区）， 因为 SCR HW ROLL 程序 
将占用所句的寄 存器。 43876中的指令把卷动的方向装入 B ， 
我们给出的是上卷 • 43878的 CALL 指令細 ROM 中的 
程序， 1 'iROM 程序执行完后，把堆栈中的寄存器对弹出。 
下一条指令 DJNZ , 把 B 的内容减1，如果不为0,则跳到 
地址43874。 

Basic 装入的积序为: 

10 MEMORY 43869* ad(iress =43869 
20 scroll =43870 

30 DATA 6, 10,62,0,197,245, 6, 255, 205, 77 
A0 DATA 188, 241, 193, 16 245, 201 
50 FOR count =1 TO 16 
60 READ value 

70 POKE address + count , value 
80 NEXT 

90 REM POKE 43871 with colour 
100 REM POKE 43873 with number of lines 
1 3.0 REM POKE 43877 for up/down 
120 REM CALL 43870 to scroll 


113 



观察屏幕上的文本 

下一个机器码程序将告诉你在屏菇光标处任意字符的 

Ascim 。 

这个程序在 ROM 中的地址为 47968 ( 十六进为 BB 
60)。它把字符的 ASCII 码放在 A 寄存 器中。 

为了使用这个程序，用 LOCATE 命令把光标移到你想测 
试的字符处， B 后 CAII 43800。在光标处的任何字符的 
ASSII 码将放入地址43799,并且可用 PEEK 命令在 
Basic 中得到。下面是这个程序的 BASIC 装找 锃序： 

10 MEMORY 43798 

20 r 43799 is used to store results 

30 aderess =43800 

40 7 Routine starts at 43800 

50 ， 

60 r Decimal machine code 
70 DATA 205, 96, 187 
80 DATA 50, 23, 171, 201 
90 DATA 0 
100 ， 

110 , Machine code loader 

120 READ value 

130 IF value =0 THEN 260 

140 POKE address , value 

150 address =address + 1 

160 GOTO 120 

170 • 
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180 ，all done 

190 REM TO use * place cursor with LOCATE 
200 REM then CALL 43800 
210 REM then PEEK ( 43799 ) 

220 REM This returns ASCII value of 
230 REM the character at the cursor position 
240 REM or zero if no character 
250 " 

260 REM EXAMPLE 
270 CLS 

280 LOCATE i , 1 
290 PRINT “ ABCDEF ” 

300 FOR i =1 TO 6 
310 LOCATE i , 1 
320 CALL 43800 
£30 value = PEEK ( 43799 ) 

340 LOCATE 1, 10 

350 PRINT " Character ^ , i , > CHR $ 

(value ) 

360 PRINT “ASCII code is ” ； value 
370 LOCATE 10, 20 

380 INPUT “press ENTER for next ” , a $ 

390 NEXT 

下面是这个程序的汇编码： 

地址 助记符 16进码 十进码 

43800 CALL 0 BB 60 H CD 60 BB 205 96 107 
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43803 LD (0 AB 17 H ) 32 17 AB 50 23 171 

48806 RET C 9 201 

涂色 

虽然可以使用-•个 WINDOW 命令建立彩色块，但是 
很麻烦。然而，在从地址 & BC 44 开始的 ROM 中，有一个 
叫做 SCR FILL BOX 的机器码程序，它可根据 A 寄存器 
中的颜&码把字符块涂色。这个程序耑耍4个饵来定义涂色 
块的左，右，上，下字符位置， 这些尥 分别放 fH ， D，L 
和 E 寄存器中。 

下而给出的稈序允许你川5个 POKEs 定义来定义块 
的颜 ft 及块的四个角。使川你 tl 巳的机器码程序的优点 
是：它操作不依赖于任何屏蘇窗口。因此,你可定义和使用 
Basic 课文窗口，也 W 以给矩形涂以素色或贝冇某种结构的 
颜色。这性在 Basic 中是不易做到的。 

10 ' Basic Loader 

20 ' For box filling 

30 MEMORY 43879 
40 address =43879 

SO DATA 62, 255, 38，0，22，0，，16，0，30，0， 

205 


60 DATA 68, 188, 201 
70 FOR count =1 TO 14 
80 READ value 
90 POKE address + count ， value 
100 NEXT 

110 ' = = = = = = All Done == 
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120 • 

130 >P0KE 43881, colour 
140 f pOKE 4388X> left colour 
150 'POKE 43885， right column 
160 ’POKE 43887, top row 
170 POKE 43889， bottom row 
180 'CALL 4388U to fill box 
190 1 

200 1 = = = = = = = Demonstrat ion === 

210 MODE 1 
220 colour = 43881 
230 left = 43883: right =43885 
240 top =43887: bottom = 43889 
250 fill = 43880 
260 1 

270 texture =255 

280 TLHC =0 

290 f TLHC i = Top Left-Hand Corner 
300 dc =1 

310 f dc i = TLHC increment 
320 1 

330 *Set up addresses to define box 

340 POKE colour，texture 

350 POKE left , TLHC 

360 POKE top, TLHC 

370 POKE bottom, 24-TLHC 
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380 POKE right, 39-TLHC 

390 ! Change texture 

400 texture =texture-lO 

410 IF texture<(J THEN texture =255 

420 'Call box fill 

430 CALL fill 

440 TLHC=TLHC + dc 

450 IF TLHC=12 OR TLHC=0 THEN dc =-dc 
460 GOTO 340 


地址 

助记符 


操作码 / 数据 

卜进码 

43880 

LD A ， 

#n 

3E 

62 

43881 



00 

0 

43882 

LD H, 

#n 

26 

38 

43883 



00 

0 

43884 

LD D, 

#n 

16 

22 

43885 



00 

0 

43886 

LD L, 

#n 

2E 

4G 

43887 



00 

0 

43888 

LD E, 

#n 

IE 

30 

43889 



00 

0 

43890 

CALL 

&BC44 CD 

205 

43891 



44 

G8 

43892 



BC 

188 

43893 

RET 


C9 

201 


这个程序本身是很简单的 e 在地址 &BC44 调用 ROM 
程序时，它把相应的值装入相应的寄存器。 Basic 程序的 30 
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〜 100 行是装载程序， 130 〜 180 行给出定义颜色的 POKE 地 
址和块的上、下、左、右单元的 POKE 地址。210 〜 460行 

为 执行。 

使字符订不同的颜色 

作木彦中使川的敁后一个 ROM 机器码程序叫做 SCR 
CHAR INVERT ,此程序把字符的颜色进行异或 ( XO - 
R ) 。它假定 • B 、 C 寄存器包含两个要用的颜色，而 H、L 
讶存器 包含竽 符的屏邶位茂 ， H 中为行， L 中为列。 

liasic 装载程序 L ! 括这样一个 操作： 打印从 A 到 X 的字 
符串，然后用这个机器码程序对于一行中的字符随机地选择 
两沖 颜色 之一。 在每行左边显示的两个数是颜色码的随机 
数。1你^ 到尔所 S 捉的.祖合讨，按 ESCti 亭程序，记下 
这两个值,以便以后用作你1:1己的程序中。 

旧召下而的锃片 •: 


地址 

助记符 


十六进码 

十进码 

43890 

LD B , 

#0 

06 

6 

^3891 



00 

0 

43892 

LD C , 

#0 

0 E 

14 

43893 



00 

0 

43894 

LD H , 

#0 

26 

38 

43895 



00 

0 

43896 

LD L , 

#0 

2 E 

46 

43897 



00 

0 

43898 

CALL 

& BC 4 A CD 

205 

43899 



4 A 

74 

48900 



BC 

188 
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48901 RET C9 201 

10 ^Character Invertor 
20 ’Basic Loader 

30 DATA 6,0，】 4 0, 38 ， 0 ， 46， 0 205, 74 
40 DATA 201 

50 MEMORY 438address =43889 
60 FOR i=l TO 1.2 
70 READ V 
80 POKE address+ i, V 
90 NEXT 
100 • 

110 ’POKE 43891 with 1st colour 

120 ’POKE 43893 with 2nd colour 

130 ’POKE 4?895 with column 

140 J POKE 43897 with row 

150 ’CALL 438S0 to invert character 
160 * 

170 4 = = = = = DEMONSTRATION = = ^ 

180 DEF FNr(n) =INT( RND(l) * 255) ^ I 
190 MODE 0 

200 char = 65 

210 aline = 43897:position = 43895 
220 colourl =43891«colour2 =43893 
230 v aluel = l*value2 =128 
240 FOR row =1 TO 24 

250 LOCATE 1, row 






260 PRINT STRING $( 19, char ); 

270 char = char + lj 
280 NEXT 

290 FOR row =0 TO 23 
300 LOCATE 1, row + 1 

310 PRINT USING “###” , value：!i : PR- 
INT " ，，、 

320 PRINT USING value2, 

: PRINT “ ” ！ 

330 POKE colourl，valuel 
340 FOR column = 9 TO 18 
350 POKE aline, row 
360 POKE position，colunin 
370 POKE colour2, value2 
380 CALL 43890 
390 NEXT 

400 valuel =FNr( 255 ) 2 value 2 = FNr ( 255 ) 
410 NEXT 
420 GOTO 290 

ROM 调用 

下间的表给出了一些有川的 ROM 程序。这些程序没有 
入口条件，因此可不用设参数来从 Basic 中调用❶这里列出 
主要的系统程序，描述其操作和入口，出口条件。 

Keyboard 键盘 

^BB80 Initialise Key Management System 
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&BB03 Reset Key Management System 
&BB13 Wait for key-press 
&BB06 Get next ke^ press in A register 
Display M 示 

ABB4E Initialise text VDU system 
&BB51 Reset text VDU system 
&BBBA Initialise graphics VDU system 
&BBBD Reset graphics VDU system 
&BB6C Clear current window 
ABD1.9 wait for TV frame flyback 
Cassette 磁伯 

&BC65 Initialise cassette system 
&BC6E Start cassette motor 
&DC71 Stop cassette motor i „ 

Sound 声音 

&BCA7 Reset Sound Manager System 
及 BCB6 Stop all sounds 
&BCB9 Restart sounds 
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第八章介绍图形 

颜 色 

Amstrad 有三种屏笳方式 H 决定屏幕的分辨率和颜 
色。 MODE0 也称为多色方式，扭 ,.' 、叮在屏縣上 M 示 27 种 
颜色中的 16 种 。 MODE 默认方式，它最多 "fM 示 4 种颜 
色 。 MODE 2 有最高的分辨率，但每 " 、只能 M 示 2 种颜 


色。下表给出颜色码， 

码颜色 

0 Black 黑 

1 Blue 蓝 

2 Bright Blue 浅蓝 

3 Red 红 

4 Magenta 洋红 

5 Mauve 浅绿： 

6 Bright Red 浅红 

7 Purple 紫 

8 Bright Magenta 

浅洋红 

9 Green 绿 

10 Cyan 肯 

11 Sky Blue 天蓝 

12 Yellow 黄 

13 White 白 


码颜色 

14 Pastel Blue 淡蓝 

15 Orange © 

16 Pink 粉 

17 Pastel Magenta 

淡洋红 

18 Bright Green 浅绿 

19 Sea Green 海级 

20 Bright Cyan 浅绿 

21 Lime Green 树绿 

22 Pastel Green 淡绿 

23 Pastel Cjran 淡青 

24 Bright Yellow 浅黄 

25 Pastel Yellow 淡黄 

26 Bright White 浅白 
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分辨率 


在 MODE 0 ，每行 /j 20 列 , MODE 1 每行有 40 列， 
MODE 2 每行有 80 列。每 1 、字符由 8X8 的点牢组成，但点 
的大小极据屏猫方式而变。任何屏菘上的敁小点你为象素。 
你可以使用 MODE 2 来凼细致的图形，这些图形不志要多 
种图形而溢要高分辨率。也可用 MODE 2 进行字处理，因 
为 80 列的格式对字处理垃方便的 。 MODE 0 有多种颜 
色，但作旧是很祖的，这个方式最好为年轻的用户显示教学 
程序等。设炅活的足 MODE 1 ,它有适中的字泞大小和四 
种颜色。 

虽然，屏 « 本身的分谢中足 640 x 400, 但象素的数 f ! :是 
随屏幕方式 ffU 变的。在 MODE 2 时，分辨率为 640X200, 
MODE I 为 320 X200， MODE 0 为 160x 200 。在这三种 
方式下， 7• 符的高度是相同的，但宽度 不同。 

图形程序只要做一些很小的修改，就可在任意 W 帑方式 
下使用，似 M 示的范围和可用颜色有所不同。 


边框颜色 

你 "I' 以改变屏幕的挞齒!色和背铅颜色或前景颜你甚 
至吋以 定义阴种边框颜色，并使它以一定速率变换。边框颜 
色由 Basic 命令 BORDER n 来设逛，这里 n 是颜色码。如 
采给 BORDER 两个参数，则设寘了两种边框颜色，并且两 
种颜色 + 断变换。为了定义颜色变换的速率，我们使則命令 
SPEED [NK_ 。它 j 需要 2 个参数来规定每忘颜色（也种墨 
水）出现 M 时间。时间单位为 i/50 秒 。 'SPEED INK 
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1 • 1 / 表示两种颜色 以 1 /50 秒的速率交替 出现。 时间的 最大伉 
为255 (大约5秒），而且两 V |、 j 间数不必相同 p 例 ‘如： 
' SP-EED INK 25, 20( V 使第一种颜色出现半秒，第二种 
颜色出现4秒。 


背景颜色和前最颜色 


' R 背景齒 I ii flifjij iil.i 须&不象置边柩颜■那么抑单。 

INK 

为了在纸上写字，你必须选择笔灌入墨水，这就足 Am- 
strad 颜色系统的工作 方法。 命令 INK 允许你把颜色值赋 
给你想用的忍水。例如，你想把0号墨水设为浅竺，应使用 
NK 0, 14。你要把2号操水设为绿色，则应使用 INK 2， 

9 o 

i'j Amstrad 开迎时，紐个墨水 （ 0_ 5 J •〜 15 号 > 都被赋 
与一种颜色，但足不 M 的屏*方式这些颜色足不㈣的。甸个 
笔被沏入相同号的墨水，这些颜色足机器的默认仿， •；! •可以 
改变 iVd。 在上面的例子中，我们把録色码 M 给2号墨水就足 
在2 y 笔屮翊入了绿墨水。 


MODEO 的 PEN/INK 默认颜色赋值 


piiN ( 笔） 

默认的颜色码 

颜色 

0 

1 

蓝 

1 

24 

浅黄 

2 

20 

浅青 

3 

G 

浅红 

4 

26 

浅白 
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5 


0 


6 


2 

浅蓝 

7 


8 

浅洋红 

8 


10 

青 

9 


12 

黄 

10 


14 

淡蓝 

11 


16 

粉 

12 


18 

浅绿 

13 


22 

淡绿 

14 


1, 24 

P3 烁蓝， 戊黄 

15 


16, 11 

闪烁扮，天蓝 


MODE 丨 的 PEN/INK 默认颜色赋值 

聰 （笔） 

默汄的 颜色码 

颜色 

0 


1 

蓝 

1 


24 

浅黄 

2 


20 

浅靑 

3 


6 

浅红 

4 


1 

蓝 

5 


24 

浅黄 

6 


20 

浅肯 

7 


6 

浅红 

8 


1 

蓝 

9 


24 

浅黄 

10 


20 

浅 # 

11 


6 

浅红 
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12 

1 

蓝 

13 

24 

浅黄 

14 

20 

浅青 

15 

6 

浅红 

MODE 2 

的 PEN / INK 默认颜色赋值 

PEN ( 笔） 

默认的颜色码 

颜色 

0 

1 

蓝 

1 

24 

浅黄 

2 

1 

蓝 

3 

24 

浅黄 

A 

1 

蓝 

5 

24 

浅黄 

6 

1 

蓝 

7 

24 

浅黄 

8 

1 

蓝 

9 

24 

浅黄 

10 

1 

蓝 

11 

24 

浅黄 

12 

1 

蓝 

13 

24 

浅黄 

14 

1 

蓝 

15 

PAPER 

24 

浅黄 


为了设置屏幕的背 4 颜色，你可以使用命令 ， PAPER 
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«/, 这里 n 是墨水 （ INK ) 号，不是颜龟码 0 因此， PAP 
E 3 表示把背景颜色设为 3 号墨水所赋的颜色。当 Amstrad 
开通时，背景颜 色设为0号笔或 墨水的 颜色， 前景颜 色即听 
用的 笔号为1。 

PEN 

命今 PEN 决定 用哪种颜色写字符 。 'PEN 0^表示评 
幕 上的字符将为蓝色。如果你用的笔颜色和纸颜色相同，则 
在屏幕上看不到任何字符。 

你也可以使前贵和背景各&两沖颜色问变换。这需要给 
JNK 3个参数，如 INK 1，0，26%第一个数是定义的 
墨水号， 第二、 H 个数是使 W ] 的颜色码。陡用 SPEED IN 
K 可以改变变换速申。 


图 形 

Amstrad 、可在屏鎘上产也图形：即彩色线 和点诅 成的 
象。你也可对阁形设贾前景颜色和背景颜色。冇苦千可用妁 
图形命令，下而将众别介绍。 

座标 

阅形屏蓰非常象 ® 标纸，《左下角的座标为 （ 0 , 0 )， 
即0列0行，这点称为原点，这和文木屏幕是非常不 伺的， 
文本 屏裕的左上取坐标为（〗， 1)。 布任何方式中，所 n ■的 
坐标都是先给出列，后给出行。 

POS 和 vpos 

POS 用来给出跨越“流”的当前的光标的位 1 。 因此， 
可用它来得知打印头在打印机的滚简匕走了多远。 PRINT 
“A” , P0S( #0) 产生、 A 2S 因为打印了 A 以后，光标 
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是处于这行的第二个位置。 P0S( #8 ) 告诉你打印头走了 
多远 。 POS ( #9 ) 告诉你在上一个回车后有多少个字符被 
送入了磁带。 

YPOS 回送光标的垂直位置，因为它对屏幕外的任何 
流都没有意义，所以其参数必须在 0 〜 7 之间，如： 'yc- 
oord=VpOS( #1 )、 

MOVE 

使用命令 MOVE 和 MOVER 忖使图形光标在屏辎上 
移动。 MOVE 需要两个参数 ：要移 到的列 fP 行。 MOVE 
100 ， 100' 把 阁 形光标移到象素坐标 为 （ 100, 100 ) 的地 
方。这个坐标足从原点算起的。屏蘇右上角的坐标为 (639 ， 
399 ) „ 

MOVER 

A-10VEK 衣示扣对移， 此命令 把所提供的参数加到 
当前光标的列行值上，然后把光标移到这个位置。如果当前 
的光标 位边足 （〗 00 ， 100) 则命令 \MOVER 10 ， -20 '把 
光标移到（ 110，80 ) 。 

你彳以把光标移出掷总 : 而不产生出错信息， 例如： 你可 
用 'MOVE 1000, 1000, 》但是如果参数的范围超出 -32768 
-+32768, 则产生出错信息 、 Over flow ，。 

PLOT 

为 i. 在给定的屛 縣位置 设一个象素，你可使用 PLOT 命 
令，此命令至少耑要 2 个参数，以表示象尜的坐标。象素的 
颜 & 可在第三个参数中给出，这里用的是墨 水号 。 'PLQT 
50 ， 100, 把鄉素 :! {: 在 （ 50, 100 ) 处，并使用 3 号墨水的 
颜色。 PLOT 不仅 i 设指定 的点。 也把光标移到 那点。 
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PLOTR 

P LOTR 在屏辎的啉对位置设象索。它把参数加到图 
形光标的当前坐标上，并在这点设象素。它也可有第:三个参 
数来表示 颜色。 

DRAW 

使用命令 DRAW 和 DRAWR ， 可通过移动光标来产生 
—条'线。 DRAW 按其及的前2个参数把光标 移到一 新点， 
并在新点与旧点之间 产生一 条线，也可用第三个参数定义线 
的颜色 • 'DRAW 20, 20, 1 将在光标听在处和（20， 
20) 点之间画一条线，并且线为1号學水的颜色 • 

DRAWR 

DRAWR 在当前光标和《相对位贸问画线 . DRAWR 
20，20表示在光 标所在 点到光标坐标分别加20的点之间両 

线. 

TEST 和 TESTR 

TEST 和 TESTR 命令告诉你特定象索的颜色 。 'TE 
ST in , Y 产生坐标为 （ m ， n ) 的象素的颜色码 。 TESTR 
則产生相对于光标的象素颜色码。如果 TETST 成 TESTR 
产生0，则给定点的象素为背景颜色。这两个命令可这样使 
用： 

check =TEST 100，100 或 check =TESTR 10， 

- 10 . 

注意： 这两个命令也把光标移到所测试的 点* 删除象索和 
线 

由 PLOT 和 DRAW 在背景颜色上画的点和线可以被 
删除 • 例如： 
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10 MODE 0 

20 MOVE 0, 0 

30 DRAW 639, 399, 4 

40 GOSOB 1000 :’Pause 

50 DRAW 0, 0, 0 

60 GOSU B 1000 意 ’Pause 

70 MOVE 0, 399 *DRAWR 639, - 399, 7 

80 GOSUB 1000 

9 0 DRAW 0, 399, 0 

100 GOTO 20 

1000 FOR Pause =1 TO 100* NEXT:RETURN 
这个程序从原点到右上角画一条蓝色的线，然后，又用背景 
颜色 [Hi 回到原点，这样就把这条件删除了。注意：当 MOD 
E ] 命令发出时，光标被放在原点。任何没#第三个参数的 
DRAW 和 DRAWR 命令将使用最后一次定义墨水颜色。 
XPOS 和 YPOS 

XPOS 和 YPOS 回送图形光标的列行坐标。这对于把 
光标重设到原来画的图形上是很有 用的。 它们不做为命令使 
用，因为它们不移动光标，而是把光标的坐标值赋给变量， 
例如： 'xscoord = xPosj ycoord = . vPos ' 。 这个技术的使 
用在下 ifii 的例子中说明。 


例 子 

下面，我们用本章中介绍的命令做一下练习。我们将做 
―些象 方块和圆这样的简单图形。 

方块 
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为了围着屏幕边缘画一条线，我们可使用两种方法。最 
慢的一种方法是从屏幕左下角的原点开始，一点一点的画， 
—直画回到 原点。 每条线可用一'个 FOR - NEXT 循环来 
做， 例如： 为了从原点向上画，我们从原点（0, 0) 开始， 
画所有 y 值为0〜399之间的点，而 x 值保持为0。下面是这 
段 程序。 

10 MODE 2 «MOVE 0 ， o 
20 x =0 

30 FOR y =0 TO 399 
40 PLOT x , y 
50 NEXT 

为了在屏蘇上边画'线，我们把设为 3 99,使\值从0 
变到639，然后画每一点， 

60 y =399 

70 FOR x-0 TO 639 
80 PLOT x 7 
90 NEXT 

为了画右边的我们把 x 值设为639,而使 y 值从 399 
变到0 , 

100 x =639 

110 FOR y =399 TO 0 STEP -1 
120 PLOT x , y 
130 NEXT 

最后，我们把 y 设为0，使 X 值从 639 变为 o : 

140 y =0 

150 FOR x =639 TO 0 STEP -1 
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160 PLOT x，y 
170 NEXT 

另一个方法：定义想连线的点，然后在点间 画线。 屏幕 

4个角的坐标分别为（ 0, 0 ), ( 0, 399 )，（639, 399),' 
( 639, 0 ) ,只要我们把光标依：移到每点，则可画好 
线， 

10 MODE 1 
20 PLOT 0, 0 
30 DRAW 0, 399 
40 DRAW 639, 399 
50 , DRAW 639, 0 
60 DRAW 0, 0 
这种方法比前-•种快得多。 

图形子程序 

子程序可使程序设计变得容易。如果我 们有一 个需要_ 
许多方块的程序，每"都把画方块的部分写出来是很麻烦 
的。但是我们可用一个通用的画方块子程序，每当我们需要 
在屏務的任意点画方块时，则可调用这个子程序。然后光标 
回到调用前的位置。我们在这个子程序的入口用 xPos 和 
ypos 登记光标的位置，在退出这个子程序前，使光标复位。 
因为方块的边长相同，我们只需告诉子程序方块右上角的光 
标和边长。这个子程序如下： 

1000 xcoord =xPos«ycoord =yPos 
1010 PLOT leftcol. toProw 
1020 DRAWR sidelength，toP line 
1430 DRAWR 0, - sidel ength> ' r igh line 
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1040 DRAWR — sidelength ，0:’ bottom line 
1050 DRAWR 0, sidelength〆 lete line 
1060 MOVE x CoorcJ , ycoord 
1070 RETURN 

Amstrad 没有画图的内部命令。但是，可以很容易地 
写一个子程序，来增加这个功能。画圆的过程足相当容易 
的，它可在一个 FOR … NEXT 循环中从0到360度一步步 
的执行。在调用这个子程序前，我们必须定义圆心和半径。 
在圆裘面上的焯一点的 x 坐标可通过把角度的 Sin 值乘以半 
径，再加到圆心的 x 坐标上而得出。每点的 y 坐标由通过把角 
度的 COS 值乘以半径，再加到圆心的 y 坐标而得出。 

唯一注意的一点足，你可以选择是以角度还是以弧度为 
单位来计算。下而是这个程序： 

1999 REM CIRCLE subroutine 

2000 DEG 

2010 xcoord = XpOSx ycoord = Y POS 

2020 PLOT centrex，centrey 

2030 FOR degrees =1 TO 360 

2040 xPoint = centrex + radius *SIN ( degrees ) 

2050 yPoint = cc^trey + radius • COS ( degrees ) 

2060 PLOT xPoint，yPoint 

2070 NEXT 

2080 MOVE xcoord, ycoord 
2090 RETURN 

填充围形 

我们可以修改方块和圆程序，使之可填充所画的图形《 
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要做的第一件事是在主程序中设两个变量： yes 和 No , 
它们对应于 -1 和0。我们也可使用另一个变量 HilUtS 在 
我们调用子程序以前，对这个变量也置\^^或\^^(/。在子 
程序本身中，我们有一些对图形涂色的命令，如果 ~fillit = 
0 S 我们将用一个 GOTO 跳到这些命令的入口。为了达 
到这个效果，我们把下面几行加到方块程序中： 

1061 IF fillit =no THEN 1070 

1062 FOR row = toProw TO toProw-sidelength 
STEP -1 

.1063 DRAWR sidelength , 0 
1064 NEXT 

这段程序在方块中从上到下画线。要记住：在调用这个 
子程序前，必须定义 VeV 和 ' No / ： 

15 yes = — l , No = 0 

在调用前，你也必须对、或、 n </: 

85 fillit =yes 

下 面足对 1 M 1 程序增加的命令： 

1061 IF fillit =no THEN 1070 

1062 DRAW centrex , centrey 

这两条命令从圆周上的各点到圆心 画线。 和方块程序一样， 
你也必须把 yes 置为-1，把 Nog 为0并对* fillit ”置 
'yes’ 。 


快速作图 

有一些快速画圆的方法。首先，我们可对角度、半径等 
使用整数变量。 
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ORIGIN 

我们可以把原点设到任意列行处。通常，阐形操作的原 
点设为 （0, 0〉。但是命令 ORIGIN 町以把原点设 it 屏幕 
或离开屏幕的任意处。然后，我们使用 DRAWR 或 MOV 
ER 命令可以对原点做相对移动。 

如采我 in 把原点设为圆的圆心，则画圆周的计算和操作 
变得很简单也很快。下面的画圆子程序用 v %/ 做半径，用 
、xc 和 ' ycV 做原点及 I 尚心： 

1000 DEG 

1010 FOR d % = 1 TO 360 
1020 ORIGIN xc %» yc % 

1030 PLOTR r % * SIN ( d %), r %* COS ( d %) 

1040 NEXT 
1050 RETURN 

这个程序+把光标 M ' 位到 M 用前的位置，但你吋很容 M 的把 
以前讲的短位 7 j 法加进去。 

为了把这个程序修改成填充圆的程序，把 i 030 行的 PL 
OTR 改为 DRAWR 。 如采 你想改 变圆的 M 色，只需把 INK 
或 PEN 码加入 PLOTR 或 DRAWR 命 令中。 

下而的程序什 ： MODE () 下闽填入所 有默认颜色的 阏： 
10 MODE 0 
20 i%=L 
30 r % =100 

40 xc % = a 20« yc %' =2000 
50 GOSUU 1000 
60 i %= i%+l 
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70 IF i%>15 THEN i% =0 
80 GOTO 50 

999 REM Circle routine starts here 

1000 DEG 

1010 FOR d% =1 TO 360 
1020 ORIGIN xc %, yc % 

1030 DRAWR r%*SIN(il%), r% *COS(d%), 
i % 

1040 NEXT 
1050 RETURN 

还有更快的画圆方法。下面的画 1 M 1 程序#起来很长，但 
却很快。遗憾的足，这个程序所用的算术原理超出了本书的 
范围。 约速度很屯要而不迮乎占用多少存於器时，它是一个 
很有用的子程 Jj : 

10 REM fast circle 

20 DEG ： radius% =190：DIM Point(90, 1) 

30 ORIGIN 0， 0 

40 ceutrex = 320:centrey =200 

50 ’Fast circle 

60 GOSUB 5000：PRINT delayfj “seconds” 

70 ， 

80 PRINT “Press sPace to continue” 

90 IF INKEY(47) = -1 THEN 90 

1000 ， 

110 formal circle 

120 GOSUB 6000:PRINT “Fast was” ； dela- 
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yfi “seconds” : PRINT ‘ 々 his took” ； 
delaynj “seconds” 

130 PRINT “Fast to slow ratio:” ； dc!ayf/ 
delayn 

140 y 
150 END 
160 ' 

4999 ’Past circle 

5000 CLS^const =TIME：PRINT “ Ca!cu!at- 
ing” 

5010 ’Calculate Quadrant Points 
5020 FOR degree% =0 TO 90 
5030 PRINT ； 

5 O 4 O Point ( degree%, 0 ) = radius% 

(degree % ) 

5 C 5 O Point ( degree%, 1 ) = radius% * COS 
(degree% ) 

5060 NEXT 
5070 J 

5080 ’Plot all Points 

5090 CLS 

5100 PLOT centrex + Point C degree%, 0), 
5110 FOR degree% =0 TO 90 

centre^ + Point = decree 5^, 1) 

5120 PLOT centrex + Point ( degree%，0 )， 
centrey - Point ( degree %, 1 ) 
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5130 PLOT ceritreo - Point ( degree % 9 0 )，. 

centrey - Point ( degree % 9 1 ) 

5140 PLOT centrex- Point ( degree %> 0)，. 

centrey + Point ( degree%, 1 ) 

5150 NEXT 

5160 delayf = ( TIME-const )/300 
5170 RETURN 
5180 ’ 

5999 9 U ornial circ 1 e 

6000 Cll8 J const =TIME 
6010 FOR i% =0 TO 360 

6020 ORIGIN centrcx，centrey 
6030 PLOTR radi u s%^SIN( i% ), radius% 
*COS( i% ) 

6040 NEXT 

6 O 5 O (1 e 1 ayn = ( TIME - const ) / 300 
60(30 RETURN 

丛样的原埋，我们还有 -• 个史快的方法： 

10 ’Really fast circles 

20 ’Using eight segments 

30 DEG ： CL S 

‘10 radius % =150 

50 xorigin% =320*yorigin% =200 

60 no. stcPs 5-0 =16 

70 steP.angle = 90/no. stcPs % 

80 chord = ( radius% 米 2 来 PI ) 
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90 chord = chord/( 360/steP.angle ) 

100 int.angle = ( 180 — steP.angle )/2 

110 no.units = no. steps %/2 

120 DIM dx ( no.uni ts ) , dy ( no4units ) 

130 FOR count % =0 TO no units 

140 angle =90 - count % * steP.angle 

150 angle =int # angle -angle 

ICO dx ( count % ) = chord • COS ( angle ) 

170 dy ( count % ) = - ( chord •SIN ( angle)) 
180 NEXT 

190 xPoint =xorigin% 

200 yPPint = yorigin % + radius% 

210 PLOT xPoint, yPoint 

220 f 0 to 45 degrees 

230 FOR count % =0 TO no.uoits 

240 DRAWR dx ( count % ) , dy ( count % ) 

250 NEXT 

260 M5 to 90 degrees 

270 FOR count % = uo.units TO 0 STEP -1 
280 DRAWR - dy ( count % ) , - dx ( count % ) 

290 NEXT 

300，90 to 135 degrees 

310 FOR count % - 0 TO no.units 

320 DRAWR dy ( count% )，- dx ( count% ) 

330 NEXT 

340 ’135 to 180 degrees 


140 



350 FOR couat? 0 =no.uxiits TO 0 STEP 一 1 
360 DRAWR 一 dx ( count % ) , dy ( couot % ) 

370 NEXT 

380 f 180 to 255 degrees 

390 FOR count% =0 TO do. units 

400 DRAWR - cix ( count /0 ) > 一 dy ( count % ) 

410 NEXT 

420 *225 to 270 degrees 

430 FOR count % = no.units TO 0 STEP -1 
440 DRAVv U dy ( count% ) ， dx( count % ) 

450 N EXT 

460 ’270 to 31 l o degrees 

470 FOR count% =0 TO no.units 

480 DRAWR - dy(count %), dx ( count % ) 

490 NLXT 

500 *3：fi to 3 ? j 0 degrees 

51 ^ tOR count= no. uniti TO 0 STU - 1 
5-0 DRAW K dx ( coa ul >i ) ? — dy ( Count % ) 

530 NEXT 
：40 EM ； 


椭 Eii 

M 说 jlU 法 ； L j 2 •和把 丫 ！ .. 。唯小同;卜; 足：你 
必须使用两个半径， • 淘，一个 J : . x 坐标 o W 

關:^ K 掂高反和觉反之比来描 idiw。 这个比等 ■] 1时，就疋 
_。 m 匕画1 ;/ ;程 ( 』修改成〜画滿圆程疗*: 
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1000 DEG 

1010 xcoord % = XPOS*ycoord % = YPOS 
1020 FOR degrees% =1 TO 360 
1030 ORIGIN xcentre %, ycentre% 

1040 PLOTR xradius * SIN ( degrees %， 
yradius) ♦ 

COS ( degrees% ) 

1050 NEXT 

1060 MOyE xcoord% ， ycoord% 

1070 RETURN 

螺 线 

螺线是较难画的。首先，螺线要转几个弯，第二，圆心 
随 转动的角度而增加。然而，这些问题是容易解决的。 

下面是一个画螺线的子程序 • 为了调用这个程序你必须 
先定义几个变 S ,、 Centrex ， 和 N Centrey , 为圆心 ，、 ra 
Aixxs ^ 为开始半径， 、 n 0 . tuniV 为转动的圈数： 

10 centrex =320 icentrey =200 
20 radius =1 
30 no. turns = 4 

40 GOSUB 1000*REM Draw Spiral 
50 END 

999 REM SPiral-drawing subroutine 

1000 CLS:DEG 

1010 FOR degrees% =0 TO 360 • no.turns 
1020 ORIGIN centrex, centrey 
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1030 xPoint % = radius * SIN ( degrees% ) 

1040 yPoint% = radius * COS ( degrees% ) 

1050 PLOTR xPoint% ， yPoint % 

1060 radius =radius + degrees%’1000 

1070 NEXT 
•1080 RETURN 

做为最后一个例子，我们给出一个类似画螺的程序，并 
说明，如何用 PLOTP 的第三个参数定义屏藉上点的 颜色： 
10 CLS:DEG 

20 centrex = 320: centrey =200 
30 for deginc =10 TO 1 STEP —1 
40 no .turns =3 

50 for radalt=l000 TO 300 STEP -50 
60 MOyE centrex, centrey 

70 DEF FN altrad(n) = radius + degrees %radalt 

80 radius =1 

90 GOSUB 1000 

100 NEXT：NEXT 

110 END 

999 ’SPiral Routine 

1000 FOR degrees% =1 TO 390 STEP deginc 
1010 ORIGIN centrex, centrey 

1020 PLOTR radius * SIN ( degree% ) 9 radius 
• COS (degrees%), RND ( 1 ) 柰 14 + 1 
1030 radius = radius + radius + FN altrad ( n ) 
1040 NEXT*RETURN 
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第九章高级文本和图形 

连接文本和囝形 

在阉形的持殊地方打印文本足很有用的。阁肜的分辨 4•: 
比文本分辨率细，因此这种方法适于标注阁解这样的 f!': 务。 
阁形坐标系统也 +H • 川 r 平沿地移动字符。 

TAG 和 TAGOFF 

这个命令不立即产生影响，但它连後文本 W 旧形光标， 
以 fe 光标点阵左上角的&尜和為形光标 fi 合。 

下面的 f 程序画 — 1、钟衣的盘面,它很象咖程序，唯 
一增加的虹足 1 AG 命令 。 TAG : dX 彳，:光标放到 ㈨ 形光 
标的位 W ， TAGOFF 使文本光标回到原处。我们必须以 
30度为步长进行循环，因为0, 30,的，90, …度的位贤对 
应12, 1，2, 3 »等 W 丰位 M ， 下面迨这个杩作, 

10 MODE 1 

20 x centre % =320:ycentre% = 200 

30 radius % :: 100 

oO radius^o = 100 

•10 GOSLB 100 

i30 EKD 

1000 xcord =XPOS ! 3 , coord = YPOS 
1010 DEG 

1020 FOR degrees% =0 TO 360 STEP 30 
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1030 ORIGIN xcentre%, ycentre % 

1040 PLOTR radius% * SIN < degrees% ), 
radius% * COS ( degrees% ) 

1050 TAG 

1060 PRINT raid$ ( str $ ( hours ) , 2, 2,), 

1070 TAGOFF 

1080 hours = hours + 1 

1090 NEXT 

1100 MOyE xcoord, ycoord 
1110 RETURN 

TAG 指令 表示： 如果图形光标移动，文本光标也移动。因 
此，用 TAG 和 TAGOFF 把 PRINF 语句夹在中间的做法 
是很有用的 （ 见 1(150 行〜 1070 行）。 

为了进一步说明 TAG 的使用和这个命令所允许的文 
本 / 图形混合方式，我们来眢另一稈序。在 这个涅 序中，你 
可用 S' \^ 和 \ 〃遽按不同方 问移动 十字定位数。 
按空格 1 则从 P 巟的右下方和左下方问光标的中心画会聚 
线。下而尕这个程序： 

10 ON BREAK GOSUB 340：ON ERROR GOTO 
340 

20 SPEED KEY 1, 1 

30 SYMBOL AFTER 249 

40 SYMBOL 250 ， 24 ， 2.; ， 二 ― ， 231, 24 ， 24， 24 

50 ax =7:ay =6 

60 INK 1, 3:INK 3, 26 

MODE l«curcol =320*currow =175 


70 
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8 ❸ cursor $ = CHR $ (250) 

90 ’Move cursor 
100 PLOT 0, 400, 3 
11© MOyE curcol, currow:TAG 
120 CALL &BD19 ： PRINT cursor : TAG a 
FF 

130 a$ =LOWER$ ( INKEY $ ) 

U0 IF a $ =CHR $ ( 32 ) THEN GOSUB 250 
150 MOVE curcol, currow：TAG 
160 CALL &BD19*PRINT CHR $ ( 32 ) , : TAG 
FF 

170 cur col = cur col - 8 * ( a $ = “x” ) + 8 来 
(a $ = “z ”） 

J 80 cur row = cur row - 8 * ( a $ = ）+ 8 來 

(a $ = “/;) 

190 if curcol <1 THEN curco! =639 
200 if curcol >639 Til BN curcol = 1 
220 GOTOlOO 
230 ’Fire 

240 x = curcol 1 ax：y =currow -ay 

250 MDVE 0, 0 

260 DRAW x, y, 1 

270 MVOE 39, 0 

280 DRAW x, y, 1 

290 MOVE 0, 0 

300 DRAW x, y, 1 
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310 MOVE 539， 0 
320 DRAW x ， y，1 
330 RETURN 
340 CALL &BB00 

屏慕上的写操作 

通常，当个字符去 M 示吋，则这个符的点阵擦除 
其位置 处的象尜。但足，我们 "T 以把屏总处理转换为透明方 
式，使屏说上出现的字符不擦除象襄。透明方式允许你更嵇 
确的标注阁形，因为标注用的字符不能擦掉所在处的阁 
形 。 

为 r 进入透明方式，使用下面的指令 , 

PRINT CHR $ ( 22 ) , CIIR $ ( 1 ) , 

返回 •• 般方式则沿要 : 

PRINT CHR $ ( 22 ) , CHR $ ( 0 ) ; 

KlfliJi - 个在 、 HELLCy 上 I&im 'GOODBYE^ 的程 
序例户 : 

10 MODE 1 

20 PRINT CHR $ ( 22 ) , CHR $ ( 1 ), 

30 LOCATE 10, 10, PRINT “HELLO” j 
40 LOCAlE 10, 10, PRINT “GOODBYE” , 

打印 ASCII 码值在 32 以下的 CHR $, 对屏幕处埋产 
生特殊的影响，这些码称为啡打印控制阶。 

象素和字符可以使用 3 个布尔操作 AND, OK 和 XOR 
来产生。这些操作作用于所写的象 桌和电 义的色彩，其结果 
放在相关的屏福存贮器屮。 

为丫设茂写胖 ® 的不 M 方法，你必须先送入一个非打印 
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制 控码。 其方法是打印 CHR$ (23 )， 后而再艰一个 CH 
R $ 、.（ n 〉，这里 n 是 0 〜 3 之间的值。 0 鸯默认值，表不一 
般方式。要对象素 XOR ， 使 JTTPRINT CHR $ (23); 
CHR$1, ^ AND 使用 'PRINT CHR$ (23), CHR 
$( 2 V。 OR 使用、 PRINT CHR $ (23 )， CHR$ 

( 3 )、 

曲线程序 

这是一个产生曲线的计算机程序，这个程序利用写屏蘇 
的几种方式来表示它们的区别。因为画任意一边的过程都是 
相同的，所以仅用一个子程序处理画线， 

10 REM Curve Stitch-colour version 

20 inkcode = 2 

30 screencode = 0 

40 inkraask =0 

50 xinc = l0 : yinc = - 7 

60 CLS 

70, 

80 INK 0， inkcode 
90 see encode = screencode + 1 
100 screencode = screencode MOD A 
110 PRINT CHR $( 23 ) , CHR $ (screencode)) 
.120 " 

130 REM bottom left 
140 xEND =l：yEND =1 
150 xstart = 1 jystart = 400 
160 GOSUB 380 
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170 f 

180 REM toP right 

190 xstart =640systart =1 

200 yend =<i00：xend =640 

210 xinc = - xinc 5 yinc - - xinc 

220 GOSUB 380 

230 ' 

240 REM bottom right 
250 xstart =640*ystart -4400 
260 xcnd =640* yend = 1 
270 yinc = - yinc 
280 GOSUB 380 
290 » 

300 REM toP left 

310 xstart = 1 jystart = 1 

320 xend = 1 ! yend =400 

330 xinc = - xinc•• yinc = - yinc 

340 GuSUB 380 

350 f 

360 GOTO 80 
370 ， 

380 P_LGT xstart, ystar L 
390、 DkAW xEND, yEN l), inkmask 
400 ystari --ystart + yinc 
4i0 x£MD = xEhJU + xinc 
.120， 
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430 IF xstart<l OR xstart>640 THEN RETU 
RN 

440 IF xend < 1 OR xend>640 THEN RETURN 
450 IF ystart<l OR ystart>400 THEN RETU 
RN 

460 IF yend<l OR yend>400 THEN RETURN 
47( / 

480 GOSUB 530 
490 ^ 

500 GOTO 380 
510 ^ 

520’ change colours 
530 inkcode = inkcode + 1 
5 40 IF inkcode>24 THEN inkcode =0 
550 inkmask = inkmask + 1 
560 IF inkmask>6 THEN inkmask =0 
570 IF inkcode = inkmask THEN 550 
580 RETURN 
.波纹程序 

Amstrad 可以很容易地产生纹波图形。 平而洸是一个 

例子： 

10 REM Interferenec Patterns 
20 MODE 1 
30 GOSUB 170 

40 PRINT CHR $ ( 23 ) , CHR $ ( scrmode ) j 
50 y% =400 
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60 FOR x% = 640 TO 0 STEP -4 

70 ORIGIN 0, 0 

80 DRAWR x%, y%, colotr% 

90 NEXT 
100 GOSUB 170 

110 FOR x%=0 TO 640 STEP 4 

120 MOVE 640, 0 

ISO DRAW x%, y%, coloui% 

140 NEXT 

ISO GOSUB 170 

160 GOTO 60 

170 LOCATE 7, 24:PRINT SPACE $ ( 30 ), 

180 LOCATE 7, 25:PRINT SPACE $ (30), 

190 LOCATE 7, 24 

200 INPUT “Mode 0 -3” , scrmode 

210 RESTORE:FOR i = l TO scrmode 

221 READ scrmode $ : NEXT 

230 LOCATE 20, 24 

240 PRINT “ v } scrmode $ , 

250 LOCATE 7, 25 

Z60 INPUT “Colour 0 -4” , colour % 

270 RETURN 

280 DATA Normal ( forced), XOR, AND, OR 

非打印控制码 

有一组由 'PRINT CHR$(n )， 产生的屏幕处理命 
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令，这里 n 是 0 〜 31 之间的值。这些命令不在屏蒱上产生字 
符，除非中间有一 - 个 CHR$(1) ， 如 ： 'PRINT CHR$ 
( 1 ) , CHR $ ( 12 )' 。这样做可产生 32 个附加字符，下而 
的程序显示这 32 个默认的符号： 

]0 MODE 1 

20 FOR char =0 31 

30 PRINT CHR $ ( 1 ) , CHR $ ( char ) 

40 FOR Panuse = 1 TO 100 
50 NEXT Pause 


60 NEXT char 

通常 ， CHR $ ( 12 ) 淸除 £■—? • 总 ， CHR $ ( 8) 为退格。 
CHR $ (20) 淸除光标左边的屏岱 ， CHR $ (18 ) 清除光 
标下边的屏幕。 


超大宇符 


Wf 的十 15• 狀 Ifi 










由于非打印控制码由 CHR $ 来存取，可以象普通字 
符一样来处理它们。在 MODE 1 和 MODE 2 中，字符是相 
当小的，产生大一于般大小的字符是很有用的。一个方法是 
把一般的字符和控制码连在 一起。例如： 你可以定义 4 个字 
符来形成一个方决的象限，我们把它们称为、 a/ , 'b / , 

'c', （ 见 m9.1 ) 。你可以给它们起 S 为 a $， b $ , 

c$, d$ 并把 'g 们连在一起： 

现在，每当你、 PRINT Sguare$ , 这四个字符将 
在一起出现。这个後术远很简单的：先显示 3$ 和 h? , 
CHR $ ( 10 ) 控制涣行， . 把光标移动下一行。 CHR $ ( 8 ) 
是一个退格，光将移到象限下面，然后打印 b$ d $。 
下 ifu' 足个例子： 

10 MODE 1 

20 large. char$ =CHR $ ( 214 ) + CHR $ ( 215 ) + 
CHR $ ( 10 ) + STRING $ (2, 8> + CHR $ (213 ) 
+ CHR ( 212 ) 

30 era.char$ =STRING $ ( 2, 32 ) + CHR $d0 ) 

+ STRING $ ( 2, 8 ) + STRING $ ( 2, 32 ) 

40 LOCATE 1, 1 ： GOSUB1000«LOCATE 1, l:GO 
SUt3 2000 

50 LOCATE 10, 10«GOSUB 1000:LOCATE 10 ， 
10 ： GOSUB'2000 
60 GOTO 40 

1000 PRINT large.char $ t 
1010 FOR Paus=l TO 500*next 
1020 RETURN 
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2000 PEINT era.charr $, ^RETURN 

为了进一步利用这个技术，我们画一个 16X16 的格子 
以便在上面设计图形，然后，我们把它分为四个 8 x 8 的方 
块，你用这些方块可以计算使用 SYMBOL 命令所需的数 
字。（见图 6.1) 这些字符方块可以向上而 -- 样连接，也可 
以按其它方式连接。使用这个方法，可以构成较大的图形。 

另一个有用的控制码是 CHR$ ( 31 ) »这个操作很象 
命令 LOCATE , 所需的两个参数给出光要移动到 位贾的 
列、行坐标。它用于这样的语句： 、 PRINTCHR$ (32), 
CHR $ ( S ) | CHR $ (10), %这个语句把光标移到第 
五列第十行❶这个命令允许产生寄特的字符出和不用 'USI 
NG^ 命令而打印长数字。请 ff 下而的 程序： 

10 MODE 1 1 row = 1 
20 FOR col =1 TO 20 
30 LOCATE col，row 
40 PRINT “Is this too lo ng? ” 

50 NEXT 

运行这个程序后你将发现：当显示的倍息太长，而不能在一 
行显示完时， Amstrad 在显示信息以前打印一个回本和换 
行，使信息 在一行 的开始出现 。 CHR $ (31 ) 允许你避免 
这一点，它和 DEFFN — • 起使用则产生 … 个有用的 功能： 
DEF FN Place $ ( col，row ) = CHR$ ( 31 ) + 
CHR$ ( col ) +CHR$ ( row ) 

观在，你可用 'PRINT FN Place $ ( 13.34 ) + “Press 
sPace” ，来代替 、 100 LOCATE 13.24:PRINT “ Press 
: sPace” ’ • 
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弹球子程序 

这个子程序可以用于和修改许多弹球 游戏。 下要我们给 
出主要过程 • 

为了在屏倍上移动字符，你必须能控制字位的位置，我 
们用变 i2 给出这 个位置 的列行坐标。然后，我们可以在屏猫 
上 的任窓 位搜定位光标和显示字符。为了使字符移动，我们 
把光标定位在字符的坐标处，并 CIIR $ ( 32 ) 打印一个 
* 格来删除卞符。下 • 步足修改字符的光标，以便: ® 复这个 
操作。 





竹 -1 

个 


列 -1 

-起点 - 
1 

^ 列+,(糸) 


丄 

行+ 1 
(南〉 



图 9.2 按指南针方移用 

在屏嵇上向上移动字符表示减字符的行座标，向下移动 
则加字符的行座标。向右移动则相应地加减列座标 （ 见图 
9.2 ). 利用同样的原理我们可对西北向，东南向等的移动 
修 改坐标（见图 9.3 和下表） 
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列 -1 
沦 ■ IS 

MftfL 

< 东北) 

列 +| 

^ •行 -， 


\ / 

5TART 
/ \ 

t 

列 -1 
行 +1 
(Ail?) 

南 

列 r | 

行十1 

〈亦 豳） 

方向 

列 （ X ) 

行（： 


阁 9.3 结合指南针方向计算对角线移动的行列. 

当字符到达屏箝的边沿时，如采我们不改变字符方向， 
则字符或者从屏藉上消失，或者产生一个出错 信息。 为了避 
免这个现唆，我们需耍测试下一步要移动的坐标。如果超出 
屏幕极限,则需改变方向。我们使用两1 ■变和 Vd 
i〆 来控制字符移动的方向，这两个变 a 的值为+1 或 -1 。 
把它们加到字符的坐标上来修改字符 在屏 辐上的位置。如果 
、， cdi〆 为 -1, 则字符向左移动，因为把、 xdi ， 加到列坐标 
上，则列坐标减1，同理，为+1，则表示向右移动。 
\ Kdir ' 的作用也相同。下面是这个 程序： 


南勒 
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10 xcoord - 320: ycoord = 200 
15’ Directions -south 'vest at the start 
20 xdir = l*ydir = 1 
30 MODE 1 

35’ Erase character first 
40 MOyK xcoord，ycoord 
50 TAG、:PRINT CHR $ ( 32 ) , : TAGOFF 
UPdate x 

60 xcoord = xcoord + xdir 
65’ UPdate y 
70 ycoord = yc 00 rd + ydir 
75 f Hit side? 

80 IF xcoord < 1 OR xcood / 631 THEN THEN 
xdir = 一 xdri: xcoord = xcoord + xdir 
85’ Hit top/bottom? 

90 IF ycoord<l OR ycoord 391 THEN ydir = 
- ydir * ycoord = ycoord +ydir 
95 } Move graPhics/text cursors &disPlay 
character 

100 MOVE xcoord，ycoord 

110 TAG:PRINT “0” j «tagoff 

115 ’and repeat 
120 GOTO 40 


窗 口 

窗口是屏幕上的长方形区域，你可以把它看做一个小屏 
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莉》 Amsfrad 允允你在屏幕上定义 8 个这样的窗口。 

窗口用 WINDOW 指令来建立，它需要五个参数：窗 
口号，左右列限，上下行限，对任何窗口，你可使用命令 
'PRINT #n / , 这里 a 是 0 〜 7 之间的值。 

#0 是默认的窗口，当 Amstrad 开通时， #0 号窗口 
被定义为整个屏縣的大小。窗口有时被定义为通道： #8 是 
是打印机通道 ，# 9 是磁带通道。 

你定义了几个窗口后，便可用 TRINT #11 /在上面显 
示信息，当窗口被占满时，它在『 I 己的界线内卷动，但卷出 
的内容，可复盖其它窗口的内容。 

;|j 命令 、 WINDOW SWAPW1, W2 / 可以互换窗口， 
这里 W 1 和 W 2 足要交换的窗口号。 

建立窗 

WINDOW 指令的迎常形式为 、 WINDOW #n, 左， 
右，上，下 / ，但你可不必按这个顺序给出 参数， 窗口或迎 
道号足 必须先给的，对于 \ 左 / 和 \ 右 / 两个值，无论哪个在 
前，則把较小的一个定为 ~ 左 / 限， \ 上 > \ 下^两个值也是如 
此。 

街口和颜色 

象 CLS, PRINT, PAPER 、 PEN 这样的命令，都可 
以给出窗口号这个参数。 例如 ： PAPER #2 , 3 把 2 号窗 
口的背景颜色置成 3 号墨水的颜色。 

下面是在 MODE 0 下使用窗口的简单例子*屏幕分成 
4 个窗口，每个窗口有不同的背景和前景颜色， 

10 J Demonstration of windows 
20 MODE 0 
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30 WINDOW#l, 1, 10, 1, 12 
40 WINDOW #2, 11, 40, 1, 12 
50 WINDOW #3, 1, 10, 12, 25 
60 WINDOW #4, 11, 40, 12, 25 
70 PAPER #1, 1:PEN#1, 0 
80 INK 0, U f set INK 0 to Black 
90 CLS #1 

100 PAPER #3, 4:PEN #3, 2 
110 CLS#2 

120 PAPER #3 ， 4*PEN #3, 2 
130 CLS#3 

14 0 PAPER #4, 7:PEN #4， 13 

150 CLS #4 

160 FOR count = 1 TO 26 

170 FOR channel = 1 TO 4 

180 PRINT # channel, STRING? (10，channel 
+ count + 64 ) I 
190 NEXT channel, count 
200 LOCATE 5, 12:PRINT “THAP S ALL” 

210 GOTO 21o 
使用窗口 

用变量来存贮窗口的左 / 右，上 / 下限值是一个好做法， 
此时窗口的定义变为： 

10 wileft = 10 J wirip;ht=30 
20 witoP = 6: wi bottom = 18 
30 WINDOW #l f wileft, wiright ， witoP, 
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wibottom 

这使得对一个窗口打印非常容易。为了使一个字符串处于打 
印行的中央，你可使用下面的命令来找到字符串的开始列， 
10 DEF FN centre ( left, right ) = ROUND ((( 
right-left )/2) - ( LEN ( a $ )/2)) 

窗口复盖 

完全分开的窗口易于管理，但是如果你^成了窗口复 
盖， 则会产生一些_难。试运行下面的程序/ 

现在，因为窗13在10列，12 行苽兹 （复 盖〉， 当第一象 
限卷动时，它卷起了下面象限顶部的一行。右上部的象限也 
是如此 n 因此，程序设计时逝小心。 

轮廊线 

本章中的最后一个例子足一个十分复杂的图形程序。给 
出两个多边形的坐标，一个多边形在另一个之内，我们在每 
个外面的图形顶点到内图形的最近的顶点间画线，此程序把 
每个图形分别存贮 .6： 两个维数组、〆和 Y 中。 （n, 1 ) 给出 
外图的角， (n, 2 ) 给出内图的点。程序计算哪一个内点离 
外点最近，并把结采存贮在数组、 dO^。 下面是程序： 

10 ’Contour Drawing 

20 7 Set uP yot»r own MODE and colours 

30 MODE 2：INK 0, 0:INK 1, 26 
40 " 

50 ’ nl = outer Points, n2 inner 

60 nl = 8 s n2 = 4 

70 ’ Set uP dinicnsions for outer, 


m 


inner 



80 ’ d() is for differences 

90 ’（ nearest Points ) 

100 DIM x ( 2, nl ) ， y ( 2， nl ) ， d ( nl, n2 
110 ^ 

120 Read in DATA - outer shaPe 

130 FOR k = l TO nl-1 

140 READ x(l, k ) , y(l, k) 

150 NEXT 

160 * Move to start of outer shape 
170 PLOT xC 1, 1 ), y ( 1, 1 ) 

180 , Draw liaes. Point to Poial 

190 ， FOR k = l TO nl-1 

200 xl = x ( 1» k ) s x2 = x ( 1, k + 1) 

210 yl = y ( 1» k ) 8 y2 = y ( 1, k+1) 

220 a = x2-xl»b=y2 - yl 

230 DRAWR a, b 
240 NEXT 

250 * Save coords of last Point 
260 a = XPOS*b=7POS 
270 DRAWR x( 1 ， 1 ) -a, y ( 1, 1 ) -b 
280 , 

290 * Read in DATA for inaer shaPe 

300 FOR k = l TO n2 

310 READ x(2, k ) y ( 2, k) 

320 NEXT 

330 MOVE x ( 2， 1 ) ， y ( 2, 1 ) 



340 * and draw it 

350 POR k = l TO n2-l 

360 xl = x ( 2, k ) * x2 = x ( 2, k + 1 ) 

370 yl = y ( 2, k ) «y2 = y ( 2, k+ 1 ) 

380 a = x2 - xl*b =y2 — yl 
390 DRAWR a, b 
400 NEXT 

410 a = XfOS*b =YPOS 

420 DRAWR x ( 2, 1 ) - a, y ( 2, 1 ) -b 

430 ^ 

440 , Now calculate differences 

450 ’ between outer &inner Points". 

460 FOR d = l TO nl:FOR d2 = l TO n2 
470 d(d, d2 ) =ABS C x ( 1, d ) -x( 2, d2 ) ) + 
ABS ( y ( 1, d ) -y ( 2, d2 )) 

480 NEXT:NEXT 
490 , •••and rank them 

500 FOR r = l TO nl 
510 FOR b = 1 TO n2 
520 bn = 0*FOR ^ = 1 TO n2 

530 IF d ( r, c ) > bn THEN bn - d ( r, c):cn = c 
540 NEXT 

550 d < r, cn ) = n2 - b + 1 
560 NEXT«NEXT 

570 a = x ( 1» 1 ) *b = y ( 1, 1 ) ：ox - a*oy = b 
580 MOVE a, b 
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£90 ’Set detail-high = fiae> low = coai*sc 
600 s = 50 

610 FOR i = lTO s-1 

620 FOR £ = 0 TO i-l«st = st + l/s 

630 NEXT f 

640 FOR eP=l TO nl 

650 FOR ss = l TO n2 

660 IF dC eP, ss ) =1 THEN j =ss 

670 NEXT 

680 » 

690 ’Now draw the’ in-betweens’ 

700 a = x(l, ep) + (st * (x (2>j) - 1» ep^)) 

710 a= ROUND ( a ) 

720 b = y ( 1, ed) + (st* (y(2, j ) -y ( 1, 
eP))) 

730 b = ROUND ( b ) 

740 DRAWR a - ox, b-oy 
750 ox = a:oy =l):NEXT:st = 0 
760 NEXT 

770 ， = == = = ALL DONE====== 

780 DATA is x, y 

790 ’ Outer shaPe coorinates 

800 DATA 10, 390, 320, 350, 520, 250, 600, 

125, 450, 10, 220, 10, 160, 50, 80, 200 
810 * Inner shaPe coords 

820 DATA300, 300, 380, 250, 350, 200, 340, 200 
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第十章声音 

在本奪中，我们将描述产生声音的命令。声音是由 
Amstrad 的内‘部扩音器产生，但你也可以使用手提式立体 
声收录机的耳机来听，这可获得立体声效果。 

Basic 产生的声音 

基本的发声命令是 SOUND。 SOUND1.28V 将产生 
A 音符，箏一个参效为通道，第二个参教为声音的周期。有 
三个通道可产生声音，用字母 A、B、C 来表示。284产生的 
A 音符，频率为440周/秒。 

通道和周期 

SOUND 命令最少有两个参数，但你可用第三个参数定 
义声音的长度，这个长度是以1/100秒为单位的。铷如， 
‘■SOUND 2 , 284, lOO? 表示在 B 通道产生1秒钟 A 调的 
‘。第三个参数的最大值为255,大约 2.5 秒。 

表示通道 C 的参数是4而不是3。如果你把立体声系统 
连入 Amstrad, 要注意，左边是通道 A , 右边是通道 B , 中 
间是通道 C。 

下面的程序产生存各音阶频率的 数组： 

10 REM Music pitches 

20 , 

30 CLS 
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40, 

50, Data for notes and their values 
60， First ( upper ) octave 
70, DATA F#, F, E, D#, D, C#, C, E, 
A#, A, G#, G 

80, 

90， Read note names 

100 DIM note $(12), note%(9, 12) 

110 FOR cote% =1 TO 12 
120 READ note $ (note % ) 

130 NEXT 
140, 

150 PRlNT f PRINT “Calculating note values” 

160， Calculate note values 

170 FOR octave% =4 TO -4 STEP -1 

180 realoctave % = octave % +5 

190 FOR note% = l TO 12 

200 frequency =440* (2 A (octave% + (10-note%) 

/ 12 » 

210 Period =ROUND(125000/freq u ency) 

220 PRINT “•” j 
230 IF period>4095 THEN 250 
240 note %(realoctave %% note %) =period 
250,NEXT»NEXT 
260, 

270 CLS 
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280 ， 

290 GOSUB 350 
300 CLS 
310 GOSUB 510 
320 END 
330 ， 

340 ， play notes 

350 LOCATE 1, 1« PRINT “Octave” ！ 

360 LOCATE 1 ， 2«PRINT “Note” 

370 LOCATE 1, 3:PRINT “Period” 

380, 

390 FOR octave % =5 TO 8 

400 FOR note% =12 TO 1 STEp-1 

410 LOCATE 7, 1«PRINT octave% 

420 LOCATE 6, 2:PRINT note $(note), “” . 
430 LOCATE 8, 3«PRINT note%(octa v e%, 
note%); 

440 IF note % (cctave%, note) =0 THEN 470 

450 SOUND 1, note%(octave%, note%), 100 

460 FOR i =1 TO 1000*NEXT 

470 NEXT:NEXT 

480 RETURN 

490, 

500 ， Scale of C 

510 PRINT «Scale of C” 

520 FOR octave =5 TO 7 
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530 FOR note =12 TO 1 STEP -1 
540 IF RIGHT $(note $(note), 1) = THEN 
560 

550 SOUND 1, note %(octave» note) 

560 NEXT*NEXT 
570 RETURN 


完整的 SOUND 命今 

SOUND 命令有 7 个参数 i 
参数 范围 

通道 1 〜 128 

周期 0〜4095 

长度 - 32768 〜+32768 

开始音 : a 0 〜 7 

音量包络 0〜15 

音调包络 0〜15 

噪音周期 0〜31 

并非所有的参数都要使用，最后一个参数可省略，因为 
它产生一个白噪音。这个参数值的真正范围为 0 〜 15, 16 〜 

31 只 是蜇复 0 〜 15 的作用。你不必定义音 fi 和音量包络，可用 
两个引号来省略它们，此时， Amstrad 使用默认值 0 。 

频率 

一个纯音由一个正弦波来表示。如果我们把它们画成图 
10. 】的话两个波峰间的距离表示声音的周期，当我们说 A 调 
的频率为 440 时，就是说每秒钟有 440 周，一周表示一个完 
整的正弦波。 
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音符 

音乐的音符由字母 A 〜 G 表示，冇些可加 # 和匕符号。 
一个音符和下一个音符之间的音程叫做半音，两个半音为一 
个全音。 

大多数音乐是以音阶为驻础的，所遵循的 I: 序为）音， 
全音、半音、全音、音、仝音、半咅，我们把这个顺序简 
写为 TTSTTTS 。 使用这个方法，我 , 丫 ] 可以写一个子程序， 
来从数组中的任意音符开始咅赛咅阶。首先我们违立一个串 
数组存贮 ‘TTSTTTS/ 序列，再违一个毡数组存贮咅调的 
序号 . 

10 Scale $ = “TTSTTTS” 

20 DIM Scale%(7) 

然后，我们使用布尔逻钳给 ‘scale% ，賦值， 

30 FOR note% =1 TO 7 

40 astep $ =MID $ (scale $ ， note% ， 1 〉 

50 scale%(note%) = - 2* (astep $ = “T”）- 
(astep $ = “S” ） 

60 NEXT 

下面与上有同样作用： 

30 FOR note% = l TO 7 

40 IF MID $(scale $ ， note%, 1) = “ 丁 ” THEN 
scale%(note%) = 2 

50 IF MID $(scale $, note%, 1) = “S” THEN 
scale%(note%) =1 
60 NEXT 

如果你已经建立了数据，则可使用下面的子程序演专音 
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阶 : 


100 INPUT “octave” ， oct 

110 INPUT “note” , aaote 

120 INPUT “duration”，dur 

130 REM Trap illegal values*- 

140 SOUND 1， note %(oct, anote)，dur 

150 FOR count =1 TO 7 

160 anote =anote - scale %(count) 

170 IF anote<1 THEN oct = oct — 1 
180 IF anote =0 THEN anote =12 
190 IF anote = - 1 THEN anote =11 
200 SOUND 1 ， note%(oct, anote), dur 
210 NEXT 

和弦 

有许多种和这，从大调到小调及 7 度和音。这里，我们 
只能最 简单的介绍。 

主和弦由同时奏 3 个音组成。 Amstrad 有 3 个通逬， 
玎产生和弦。首先你必须决定从哪个音调开始，然后计算组 
成主和弦的音。 C 主和弦从 C 音阶得到，使用 C 、 E 、 G 音： 
SOUND 1, 119, 100 
SOUND 2, 95, 100 
SOUND 4, 80, 100 

小调和弦需要第 2 个音降半咅， C 小调为 C 、 E b , G: 
SOUND 1, 119, 100 
SOUND 2, 100, 100 
SOUND 4, 80, 100 
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音调包络线 

ENT 命令是关于音调包络的，它允许你定义当一个荇 
浈办时如何 改变其 频率。 

Ams-rad 不能象乐器一样平沿地改变音的高度， 你只 
能阶梯式地改 变。 如采你耍把一个音的频率升高 100 单位， 
你必须先决定这个咅存多长，假设长 1 秒。这样，我们 W 分 
成 J.00 步，鉍步位 0.01 秒，步值为 -1, 因为周期越小 ， A 
ff 越髙。这些值 AENT 指令中如下 : 

1000 ENT 1 ， 100, -1, 1 

芯一个数为包络号，第二个数站步数，第三个数每步的 
改变值，第四个数足每步的 时问。 

对于 ENT 命令，只有 15 个 . 包络号可定义， . 包络 0 为默认 
ll'i, 并 11. 不能被改变。步数的 . 范围为 _0 〜 239 ，步位在 -182 
〜 J.27 之间，步长为 0 〜 255 。 

音调包络可以是负数。假如负号的咅调包络在音符尜完 
前结朿时，则这个音调包络电复，直至这个音符次完。下山 I 
iWi/i) 子说明了 ® 复和非 ifi 公音调包络间的差别： 

10 ENT -1, 100 ， 5, 1 
20 PRINT “Negative envelope” 

30 SOUND 1, 284, 400, 7, 0, 1 
40 INPUt “Press ENTER to continue” 

50 INPUT a $ 

60 ENT 1, 100, 5, 1 
70 PRINT “Positive envelope” 

80 SOUND 1, 284, 400, 7, 0, 1 
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设计一个音调包络 

对于每个音调包络数，可定义 5 个变吉部分。设计一个 
音调包络的最好方法是在坐标纸上画出阶梯式妁图形。你把 
图分成 5 部分，每部分定义三 个值， 步数、步值、步氏（见 

图 10.6 ) 。 



_.5 
时间（秒） 

图 10. 5 在音状态中使用 2 个 S , 第一段通过降低频串 
来升髙音阶，第二段到音阶降到起始音频率， 
这是由命令 “ENT 1, 10, -1* ;1,. 10,. 1, 
1” 来定义的。 
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音置包络 

音量包络定义的方法差不多与音调包络相同。 

音量伏态允许尔改变音燈或扩大声音。 

实验音量包络 

熟习音 a 伏态的最好方法是实验。定义音量状态的命令 
是 ENV 及一些 参数 . 请看下面的例子。 

10 ENV generator 
20 note =300 

30， Define volume as high & low 
40 hivol =15* lovol =8 
50 vol =hi vol - lovol 

60， Define number of steps for each section 
70 asteps =3 
80 dsteps =3 
90 ssteps =4 
100 rsteps = 4 

110， Calculate volume increases for each 
phase 

120 ainc = ROUND(hivol/asteps) 

130 dine = - ROUND(vol/dsteps) 

140 sine =0 

150 rinc = - ROUND(lovol/rsteps) 

160* Define ADSR dursation 
170 adur =2 
180 ddur = 1 
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190 sdur =10 
200 rdur =1 
210 MODE 2 

220 LOCATE 1, 3*PRINT “ATTACK*” 

230 LOCATE 1, 4*PRINT “DECAY*” 

240 LOCATE 1, 5«PRINT “SUSTAIN*” 

250 LOCATE 1, 6*PRINT “RELEASE: ” 

260 LOCATE 10,1*PKINT “Steps” , “Change” 
“Duration” ， “Total Change^ , “Length ” \ 
270 LOCATE 12, 3* PRINT asteps, ainc, adur ， 
asteps*ainc, asteps 铸 adur 

280 LOCATE 12, 4*PRINT dsteps, dine, ddur, 
dsteps # dinc, dsteps # ddur 
290 LOCATE 12, 5 1 PRINT ssteps, sine, sdur, 
ssteps # sinc, ssteps # sdur 

300 LOCATE 12, 6*PRINT rsteps, rinc, rdur , 
rsteps*rinc ， rsteps*rdur 
310 " 

320 define ENV 1 

330 ENV 1, asteps, ainc, adur, dsteps, dine, 
ddur ， ssteps, sine, sdur ， rsteps ， rinc ， 
rdur 

340 LOCATE 1,8*PRINT “Envelope is*channel 
“； astepsi ”， “； aincj v ， “ adur”> dstepsj yy f 
dine! ” ， “j ddur; ” ， “ ； ssteps ; ” ， 

“多 sine 多 ”,“ sdur ; ” rsteps ; ”， 
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“ ， rinc;” ， “; rdur” 

350 ’Calculate note length 

360 length =asteps # adur + dsteps # ddur -4 - ssteps 来 
sdur 4 - rsteps # rdur 

370 LOCATE 1, 10: PRINT “Total len t tk is” ； 
length 

380 fv =asteps # ainc + dsteps # diiic + steps*siac + 
rsteps # rinc 

390 PRINT “Final volume is” , fv 
400 If fv <0 THEN length = length - fv 
410 ’play note 

420 SOUND 1 ， note ， length? 0, 1 
430 END 


噪音周期 

这是 SOUND 命令的最后一个参数，并且是选的。这 
个参数定义噪声的频率，其值为正，，衷示把噪音加到声茂 
上。试运行下面的 程序： 

10 FOR n =TO 31 
20 RRINT n 

30 SOUND 1, 200, 100, ,, n 
40 NEXT 


通道、聚集和抑制 

通道参数不仅定义哪个通道产生声音，也用于确保音在 
同时发出以及抑制这个音等。通道参数所允许的值及意义如 
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T ： 


1 

使用通道 A 

2 

使用通道 B 

4 

使用通道 C 

8 

同入汇合 

16 

同 B 汇合 

32 

同 C 汇合 

64 

保持 

128 

释放 


要使 m 这个表，首先要决定如何使 w 声音，然后在 
SOUND 命令中写入适当的的参数值。例如，我们有两个音 
符并希望 N 时浈劣（汇含），这两个音符一个通过 A 通道， 
另一个通过 B 通道。 这样，一个通道值为17 , 由16加1而 
得， ] .表示通道 A , 16衣示叼通道 B 汇合。同理，另一个通 
逬位将为10, 

参数位为 64 衣示保持声音，即把卢音放入一个队列中， 
当这个声音到达队头吋， 就停在 那里，直到对那个迎道发了 
一个 RELEASE 命令。 

通道参数的第 7 位 （ 十进制组 128 ) 表示把队列中声音 
移到队头，并使之马上演奏。 

声音队另 

每个声音通道有一个等候輿出的声音队列。 SOUND 命 
令把一个音的参数放入所定义通道的队列中。一个队列中可 
有四个声音。 Amstrad 有一些处理声音队列的特殊命令 • 
SQ 片 jl, 2, 4 作为参数（表示通道 A, B, C), 并且回送 
一个表示通道状态的数。如果 SQ 的参数不是 1, 2 或 4, 则产 
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生出错信息 Mmproper argumen〆 （ 不正确的参数）。下 
面为 SQ 回送值的意义 （ 由-•个 8 位字节表 示）： 

位 意义 

0 ， 1 ， 2 队列中的空位数 

3 同 A 汇合在队头 

4 同 B 汇合在队头 

5 同 C 汇合在队头 

6 保持在队头 

7 M 进有效 

为了利用 SQ 回送字节屮的信息，你必须执行 AND 操 
作。 例如，为了得出 A 通道队列中存多少空闲位置，你必须 
把这个字节和 7 做 AND 操作。 

100 channelA.stat =SQ ( 1 ) 

110 free.entries =channelA.stat AND 7 
为了检丧在队头的卢音足否和另一个通道汇合，则要把 
回送的字节同 56 做 AND 操作。如果结果不是零，则丧示有 
— 个汇合。为了得知同哪个通道汇合，你要用 32( 通道 C{), 
16( 通道 B ) 或 8 ( 通道 A ) 和结果做 AND 操作 .， 其结果就 
是所聚集的通道： 

100 channel.Astat =SQ(1) 

110 rvous = channel.Astat AND 56 
120 rvousA = rvous AND 8 
130 rvousB = rvous AND 16 
140 rvousC = rvous AND 32 
150 IF rvousA = 8 THEN … 

160 IF r vousB.= 16 THEN." 
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170 IF rvousc =32 THEN- 

180 *etc 

为了测试在队头的声音是否被置成保持，用 64ANDSQ 
的结果，得出的值为 64 ,则表示有声音在队头被保持，需要 
用 RELEAS 命令使它銮出。 

用 128 AND SQ 的结采，则得出通道是否在 206 作用， 
即是否正在冶一个声音。 

RELEASE 

这个命令用于释放在给定通道内的保持的音符。对这个 
命令你可使用 1 〜 7 之间的参数。 RELEASE 1 释放 A 的 
声 K • 队列 ， RELEASE 1 释放所有的通道队列 ， RELEASE 
6 释放 B 和 C 中的队列。 M 过保持和释放，可控制音的顺序 
和同步。 

ON SQ … GOSUB 

ONSQ 的用法非常象 ‘EVERY ’ 中断命令（见第十二 
章）。它 检杏什 么时候通道声音队列的空闲空问变为可川 
的，你必须用 1 ， 2 或 4 做为表示通道的参数。当发现一个 
空位时，则程序转到 GOSUB 指出的行号，使你可以在这个 
队列中放一个新的音。注意 SQ 和 SOUND 禁止 ONSQ 。 

声调变音 

当两个相关的频率一起盎出时，则产生这个现象。为了 
计算两个频率共鸣的值，首先以赫艺 （ Hz )来选音高，然 
后计算其和及差的绝对值。下面要在 Arastrad 手册的频率 
表中査找最相近的周期数，并把其做为 ’ 参数加到 SOUND 命 
令中。 
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下面的程序说明如何 计算： 

10 REM Ring modulation 

20 DEF FN freq(note) = 440 *(2 八 （octave + (10 - 
note)/12)) 

30 DEF FNperiod(freq) =ROUPjD(125000/freq) 

40 FOR count =1 TO] 0 

50 octave =INT(RND(1) *2)-1 

60 note 】 .=INT(RND(l)*12) + l 

70 note2 =INT( RND(l) *12) + 1 

80 IF notel = note2 THEN 60 

90 freQJ. = FNfreq(notel) 

100 freQ2 =FNfreQ(note2) 

110 SumfreQ = freQl + freQ2 
120 diffreQ = ABS(freQl- freQ2) 

130 Periodl = FNperiocKsunifreQ) 

140 period2 =FNper iocKdiffreQ ) 

150 IF periodl<3822 OR period2<3822 THEN 
60 

160 IF periodl>12 OR peri 0 d2>12 THEN 60 
170 SOUND 10, periodl, 100, 7 
180 SOUND 17, period2, 100， 7 
】90 NEXT 
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第十一章磁带系统 


Amstrad 的内部磁带机是很可靠和方便的，你可 I 很 
好的利用它。 


装载程序 

你在你的新机器上第一件想做的事是运行一个个商用裎 
fy , 为此，你必须把此程序从磁带中装入。你键入 RUN 
“” ，然后按 (ENTER) ， Amstrad 将提示你按磁带机 
上的 PLAY 键和按另一个键。当你做完这些操作后， 
Amstrad 将转动磁带马达，把程序从磁带读入存贮器，然 
后运行它。裝入程序的快速方法是按 CTRL 和数字盘上的小 
ENTER 键。 LOAD ” 将把磁带上的下一个程序装入存贮 
器，但不运行这个程序。 RUN 和 LOAD 后面可以跟一个带 
引号的程序名 / 


存贮程序 

为了存贮程序，在确保不复盖其它程序的情况下，把磁 
带放入磁带机，然后键入 SAVE “ 程序名”。计算机将提示 
你按磁带机上的 PLAY 和 RECORD 键，然后计算机将把这 
个程序存入磁带中。程序名最，多可有 16 个字符，可使用数 
字。如果你使用的字符超过 16 个，则第 17 以后的字符被丢 
掉， 当文件存贮时，把所有的文件名都变成了大写。 
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快速写 

用 SPEED WRITE1 命令可使磁带记录信息的速度增 
加一倍，这对于存贮一个较长的程序是很有用的。用 SPEED 
WRITE 0 可恢复正常的速度。 


存贮可选操作 


当存贮程序时，有若干可选操作供你使州。例如，你在 
程序名前加了一个感叹号，象 SAVE “！ CIRCLES” ，贝 U 
不显示应有的提示。注 # ，当程序记录时， I 被删除。当装 
载信息时如果你想使用自已的提示，则可在程序名前加 1 ， 
使 Amstrad 不显示正常提示而显示你的提示。 

保护程序《 P 操作 

有时，你不想让别人看你的程序，你可在 SAVE 命令中 
加， P ， 如 ： SAVE “game” ， p 。 此时，只能使用 RUN 或 
CHAIN 指令来把程序装入存贮器，不能只是装入，然后再 
列程序清单。当你使用 P 存个程序时，你必须确保这个 
程序巳不需要修改了，因为 . 包括你自己在内，谁也不能列出 
这个程序。如果你使用 ESC 来中断一个加保护的程序。则 
役序将消失。如果加保护的程序有格式错误，当程序由于错 
误而停止时， Amstrad 的保护系统将把程序从存贮器中删 
除。 


文件 

所有存在磁带上的信息，无论是程序、字符串数组屏幕 
图象，以及机器码程序都称为 文件。 
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第四章中有一个简单的数据库程序，它利用磁带机存贮 
一个字符串数组的数据。以这种方法产生的文件称为“顺序 
文本文件 ” 。由于存贮介质的关系，信息在磁带上必须以线 
性方式存贮并且译成 ASCII 码形式。顺序文件的存贮和恢复 
是很慢的。你不能重新记录文件的一部分，如果你想得到文 
件尾的信息，你必须处理整个文件。随机存取的文件的效率 
较髙，但它们只能建立在快速磁帯或磁盘上。 

ASCII 格式： /A 操作 

Amstrad 用数字表示所有的 Basic 命令。从地址 438 开 
始存贮程序。下面一段程序表示，这个程序怎样存入 RAM: 
10 REM line 1.0 
20 Basic program revealer 
30 MODE 2 
40 address = 438 

45 PRINT “Address Line” 

46 PRINT “ Bytes” 

50 bytes = PEEK(address) 

60 line.no = PEEK(address) + 2 

70 PRINT addressj bytes) line.noj 

80 FOR count =bytes to bytes - 2 

90 conts = PEEK(address) + count 

100 IF conts>31 AND conts<128 THEN PRINT 

CHR $(conts)j ELSE PRINT conts ； 

110 NEXT 
120 PRINT 

130 address = address + bytes 
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140 GOTO 50 

//V 操作把程序用 ASCII 码侪式存入磁带。这样存入的 
程序较长，因为 ASCII 码占用较多的 空间， 但这样的程序 
装载较可靠并且可做为正常文本文件处理。 

记录 （ 存贮）数据 

为了打开磁带上的文件，你可使 用命令 ‘OPENOUT 
“ 文件名 ” ’ 。为了把数据记 M 到磁带上，你要使用命令 
‘PRINT#9 ，。 PRINT9 # 后时必须有一个过号，这个 
命令的用法与屏幕打印完 k- 样。当你向磁带送完数据时 , 
你必须用 CLOSEOUT 命令关闭这个文件，因为 Amstrad 
要在文件的结尾记 4 一个 ‘ 文件紀 ’ 标志，以便杏找时识 
別。 

由于你可在 PRINT# 屮迚用变 E ， 在把数据存入磁带 
前，你可以在屏蘇上检测义件处理裎序。这样可允许你较快 
较 容易地 调试你的 0 序。 其做 法处：在你编制裎序的开始为 
PRINT 通道设一个变 S ， 如《 device = 0 。然沿，使用 
PRINT #derice 在任意磁带上写程序，当你满窓这个子 
程序为工作时，把 device 的位改为 9 ,则把数字送入了磁 
带》 

在把信息送入磁带前 , Amstrad 先把信息与入缓存 , 
仅当缓存写满时或发出 CLUbHOUT 命令， i 把信, 自送入 
磁带机。 

WRITE 

. 这个命令不常用，它很象 PRINT 命令。它 ) M'li'ii 可介一 
个表示输出对象的表达式 ，如： WRITE#9, WKITE#0 。 
再后面是要写的项目，如： WRITE#0 “This”，Value , 
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That $ 。 用 WRITE 命令打出时，数字用逗号隔开，字符串 
用引号括上。 ‘WRITE#9 ， value!,astring $ ， value2 ’ 
相当于下面的 PRINT 语句： 

PRINT #9， valuel 
PRINT #9， astring $ 

PRINT #9, value2 

使用 WRITE 命令允许你用 INPUT 命令读入语句。 

检索数据 

在你从磁带口读入文件以前，必须打开这个文件。为 
此，我们使用命令 ‘OPENIN “ 文件名”。企图 OPENIN 
—个程序则产生出错信息 ‘File tyPe error ’（文件类型 
错），除非这个程序巳用 /A 操作存贮了。你也不能运行一 
个 ASCII 码文件，除非它是一个 Basic 程序。 

在一个数据文件中，用前几个字节来描述文件是一个好 
做法。在第 4 章的数据库程序中，在把数据送入数组之前送 
入行的项数。当打开这个文件时，先读入行的项数，并把它 
作为读数组的循环计算上限。 

EOF 

EOF 是 “ End OF File ” （ 文件 结尾 ) 的缩写，当 
你不知道文件多长时，可使用它。这个功能经 ' 常这样 使用： 
‘IF EOF THEN GOTO XXXX ，， 例如： 

10 OPENIN''、' 

20 IF EOF THEN 60 
30 INPUT #9, a $ 

40 PRINT a $ 
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50 GOTO 20 
60 CLOSEIN 

这个程序从一个文件中读所有的数据，并在屏总上 M 
示，、自遇到 EOF 时，表示文件读完，则关闭文件并且结束 
程序。 

LINE INPUT 

如果你存贮含有坦号的 -. 串数据， iii 号将象 PRINT#9 
屮的分隔符那样处理。字符串 ‘Mary Jones, 191 The 
Arenue, Durham ’ 将做为二 : 个分开的项来处理。 成运行 
下面的程序： 

10 CLS«OPENOUT “TEST” 

20 PRINT #9, “abc, def, ghi” 

30 CLOSEOUT 

现在，卷回磁带，运行下 I(ii 的数据检索程序 : 

10 CLS'OPENIN “TEST” 

20 IF EOF THEN 70 
30 INPUT #9 ， a$ 

40 count =count+ 1 
50 PRINT count, a $ 

60 GOTO 20 
70 CLOSE1N 

这个程序说明了 INPUT 如何处理远号，和数据如何 
被分开。如果你把 30 行改为 ‘LINE INPUT# 9, a $ 

再重新运行这个程序，则可 看到 ： LINE INPUT 避免了 
这个问题。 


184 



存贮主存中的数据块 

SAVE 命令有若干"〗选操作。例如：你可存贮在屛幕 
上产生的阁象。这个命令 如下： 

SAVE “ Picture ” ， B ，& COOO , 16384, & C 000 
B 表示要存贮的主存数据块， & C 000 是 RAM 中的视频 
存贮器的起始地址， 1638 4 足要存贮的主存块氏度（所有的 
屏縣方式此川 16 K RAM )， 最后一个参数表示重新装载这 
个信息的起始地址。下而的权序 N - •个干扰阁形并把它存入 
磁带： 

10 MODE 2 

20 y =400 

30 FOR x =639 TO 0 STEP - 3 
40 ORIGIN 0, 0 
50 DRAWR x , y 
60 NEXT 

70 I'OR x = 0 TO 639 STEP 3 
80 MOVE 639, 0 
90 DRAW x , y 
100 NEXT 

110 SPEEDWRITE 1 

120 SAVE u \ interfereuc2 v 9 B , & C 000, 16 38 1 
& C 000 

这个程序运行完后，键入 NEW 并卷回滋带，再键入 
下向的程序： 

10 MODE 0 
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20 LOAD “1 interference ” 

当你运行这个程序时，你将看到图形不是从头到尾画 
出，显示的行顺序为0, 8, 16等。这是由于你把 MODE 2 
产生的图形在 MODEO 显示的结采。注意：当读入数据时， 
无颜色闪烁，但在谈存贮块之间和文件被裝入后，有许多颜 
色闪烁。 

了解如何在屏蘇上显示图象，可使你用旧阄形得到新效 
果，甚至可使屏辎上下两半互换显示等。你只耑知进屏幕起 
始地址 & C 000, 和200行的每一行占有80个字节。根据屏荪 
的映象方法，很容易 PEEK 每个字节并把内容存入磁带。 

当然，显示的所有信息，包括磁妝操作的提示 Oi 将记斌 
下来，所以在 SAVE 和 LOAD 命令中的文件名前，不要 
忘记使用感叹号。 


存贮字符 

如果你 M 新设计了一些或全部 Amstrad 的字符，你也 
许想在其它裎序中使用它们，但足对•悔个程序邡键入这些 1 B 
新定义字符的命令足很麻烦的。然而，由于字符定义存贮在 
RAM 中，你可把这些字符存入磁带并把它裝入其它程序。 

字符在 RAM 中从地址 & A 500 开始存 fi , 每个字符由 
8个字节定义。有224个打印字符 （ 32〜255 )，所以结束地 
址为42240 + ( 224 * 8 )，即44031,共 1792字节长。为了 
存贮字符集合，你要使用 ‘SAVE “ CHAR . SET ” ， B ， 
42240， 1792, 42240 ，。 

如果你对128〜170的 ASCII 码字符重新定义，你首先 
要计算起始地址 （ 42240 + ( 128-22 )*8), 然后耍计算 


186 



心:贮字节的长度，此时为344个字节。存贮命令如下, 
SAVE “ chars ” ， B , 43008, 344，43008 


样贮机器码 

存 贮机器码子程序 可节 省吋间 ，因为 你不必 / f :每个使用 
它的程序的开始键入建立这个子程序的 DATA 语句，你只 
9 j - j 这样•-个子程序即可: 

10 KEM Create and Save machine code 

20 DATA 205, 96, 187 ， 50 ， 23 ， 171， 201 

30 MEMORY 43798 

40 FOR count =1 TO 7 

50 READ value 

GO POKE 43799 +count, value 

70 NEXT 

80 SAVE “PEEK.TXTSCKN” ， U, 43799, 8 ， 
437ui3 


销目文件 

当你键入 CAT H , Amstrad 将姑示和键入 LOAD 
同样 ; iu 提示。你再技 *PLAY 和一个键后，计算机将读 
磁带 .I •.的 ;:i 个文件，'然 gM 示每个 文件妁 名子,并用符号标 
注文件 类型： 

$ 一 Normal Basic Program 正常的 BASIC 程序 
% - Protected Basic Program 保护的 UASIC 

松序 

• -ASCII file ASCII 码文件 
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& - Binary file .二进制文件 

如果你想停止编_琪程，你必须多按儿沐 ESC 键。因 
为 Amstrad 不允许你在读或写磁带时中断。 

每个文件有一个头，它含有文件名和文件类型。头后面 
是文件，文件分成许多数据块，：.每块有自己的头，用来说明 
数据块号。 


链接程序 

你可用存在 RAM 中的程序来 RUN 第二个程序 。但 
是，当你这样做时，你便丢掉了现有的程序，因为新程序将 
原来的程序复盖了。 Amstrad 提供了一个连接功能，允许 
存贮器中的程序再连接一个磁带上的程序并能使第二个程序 
使用第一个程序的数据。 

CHAIN 

在一个程序中可使用 CHAIN 来裝载和运行另一个磁 
带上的程序，而不丢失第一个程序建立的变 a 值。如果一个 
程序很长，则可以分成两部分连续运行。 CHAIN 的用法如 
下： 

10000 CHAIN “ NEXT . PROG ” 

你也可规定从新程序的那个行号开始 运行： 

CHAIN “ PAPT . TWO ” ，3000 

这个命令把名为 PAPT . TWO 的程序装入，并从3000行 
开始运行。 

CHAIN MERGE ( 链接合并） 

这是一个较复杂的 CHAIN 命令形式。它允许你把磁 
带上的一个程序和存贮器中的一个程序合并。存贮器中的程 
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序中若有和磁带程序相同的行号，则被删除，这些行被新装 
入的行复盖。在这个命令中你可加入‘ DELETE * 和行号 
范围，例如： 

5000 CHAIN MERGE “ PA _ RT . THREE ” ， 9000, 

DELETE 

3000—6000 

这个语句把名为 PART.THREE 的程序和当前存贮器 
中的程序合并，•并从9000行开始执行合并后的程序。存贮器 
程序的3000〜6000行被 DELETE 命令删除。下面是两个较 
复杂的例子。 

1000 CHAIN MERGE “ PART . FOUR” ， DELETE 

—1000 

2000 CHAIN MERGE “ PART . FIVE ”，6000, 

DELETE 9000 — 

使用 CHAIN 命令必须小心 u 所有用 DEFFN 定义 
的功 k 都不再存在，因此新合成的程序耍重新定义它们。任 
何0 . RROR GOTO 条件和 FOR … NEXT , WHILE 
… WEND 或 GOSOB 结构都不再存在。 DATA 语句被恢 
复，所有打开的磁带数据文件不再存在。 DEFSTR ， 
DEFINT 和 DEFREAL 指令也不执行。 

ROM 调用 

有若干 ROM 子程序供你的程序调用，以使你得到一 
些有用的功能。例如， CALL & BC 6 B 可使提示信息显示 
或不显示，如采要不显示提示， A 寄存且必须为0 ,否则， 
显示提示，因此，你必须使用一个子程序来把相应的值装入 
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就是 A 寄存器， 然 后调用 ROM 子程序， 

10 MEMORY 43879 ：address = 43879 

20 POKE 43880，62 ： REM LD A , n 

30 POKE 43881， 255 «REM data 

40 POKE 43882, 205 :REM CALL 

50 POKE 43883， 107 :REM low byte of & BC 6 B 

60 POKE 43884, 188 «REM high byte of & BC 6 B 

70 POKE 43885， 201 ：REM RET - ’return • 

磁带出错信息 

ill VS 信息可分成两部分：读错误和写错误。 

谈错误不经常发生， Amstrad 的磁带系统是较可靠 
的。介三祌类型的读错误： a ， hfllc 。 ‘ Read error b ’‘ 
表示谈数据不正确，要倒回磁带虚新谈 。 Read error a * 和 
‘Read error c ’ 表示较大的错误。 

避免磁带错误的较简单方法婭仔细选择磁带。要 + 此川 iC5 
质量的磁《，不要 90 分沖。 / 对待磁带也要 [f • 细，不要太 
经常地 fili 使 M !。 

i'l Amstrad 正生写磁带时，不要中断它。 

如采你试图裝载一 • 个在另一个机器上扣 SPEED 
WRITE 1 记录的程序或数据，则可产生读铅误。如采你 . 
想复制你的程序，应川 SPEED WRITE 0 来写。 

提示 ‘Rewind taPe ’ （ 倒带 ) 表示数据块的顺序乱 
了。 

仅有 -Y 个写出错信息，它不经常出现，因为仅当磁带系 
统不能把信息足够快地写到磁带上时， . 彳 会产 生这个错误。 
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第十二章中断 

Amstrad 的 Basic 有一组其它家族微机所没有的命 
令《这些命令允许你有在特殊的间隔执行的子程序并为程序 
员提供了许多方便。例如：在屏菇上显示一个实时时钟，玍 
卷序运行时演奏音乐或在定期的间隔中显示提示。做这些事 
情的方法依赖于“中断”这个概念。 

定时 •器 

Amstrad 中有5种定时器。 TIME 命令是其中的一 
种，但它与中断无关。你可利用的定时器的编号是0〜3,它 
们以1/50秒为单位，从0记到255。 

中断是为耍处理的子程序而由沾个计时器发出的对系统 
的请求。当有一个中断请求时，系统将暂停当前的工作来为 
这个诰求服务。在 Basic 中，这怠味=程序可在 FOR …… 
NEXT 奶坯中被屮断，然后执行产生屮断的子程序，完后， 
继续执行这个循环。这个过 程非常 象 GOSUB … RETURN , 
计算机记住中断的断点，当子程序执行完时，便返回那点。 

EVERY 

最有用的中断处理命令是 EVERY 。 EVERY 必须有 
两个参数。 一个 GOSUB 和 一 彳'打'•号。例如《 ‘EVERY 
50 ，1 GOSUB 1000%这个命令的意 思为： 在1号定时 
器每记50个数以后；从1000行开始执行子程序。第一个数是 
间隔，表示中断产生的频度。第二个数是所使用的定时器 
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号。由 EVERY 产生的中断只能和 GOSUB 组合，不能 
和 GOTO 组合。子程序必须以 RETURN 结尾，以便返 
回断点。 

下面是一个例子， 

10 MODE 1 

20 every 50, 1 gosub 40 
30 GOTO 30 

35 REM End of main routine 
40 n = n + 1 
50 LOCATE 10, 10 
60 PRINT n , “ seconds ” ； 

70 RETURN 

这个例子 给出了 一个简单的秒 记时器 ^每秒钟执行一次 
把变量 n 加1 并显 示变量 值的子 IV : 序。 

下面的例子说明如何在-•个程序内改变中断的定时： 

10 MODE 1 
20 a =1 

30 EVERY n , 3 GOSUB 1000 
40 GOTO 40 
.1000 PRINT n 
1010 n = n + .1 

1020 IF n > 20 THEN n=l 

1030 every n , 3 gosujj 1000 

1040 RETURN 
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关闭和开放中断 


下曲的例子说明 r 在 Basic 中使用中断的一些问题， 
这个程序产生三个囤着显示器跳的数，每个数代表用于产生 
中断的计时器并且每个数有自己的‘跳 •/ •程序' 

10 ’Bouncing numbers 
20 CLS 

30 X0 =l0«y0 =10 
40 XI =X0«yl =y0 
50 X2 = X0ty2 =y0 

60 b0$ = “0”$ = “1” «b2$ = “2” 

70 dXO =ltdy0 =1 
80 dXl = - 1 * dyl = 1 
90 dX2 = 1 *dy2 = - 1 
100 5 

no every 4, o gosub 170 

120 EVERY 3, 1 GOSUB 270 
130 EVERY 5, 2 GOSUB 370 
140 GOTO 140 
150 f 

160 ’Number 0 

170 DI*LOCATE xO, y0 
180 PRINT “ ^ I 
i90 X0=X0 + dx0 
200 yO = yO -f dyO 

210 IF x0 > 39 OR xO <2 THEN d x 0 = - dxO 
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220 IF y0>22 OR y0 <2 THEN dyO = - dyO 
230 LOCATE x0, yO, PRINT bO $, 

240 EI:RETURN 
250 f 

260 'Number 1 

270 DI « LOCATE XI , Yl 

280 PRINT “ ”, 

290 x] =xl + dxl 
300 yl =yl+ dyl 

310 IF xl>39 OR xl <2 THEN dxl = -dxl 

320 IF yl>22 OR yl <2 THEN dyl = - dyl 

330 LOCATE xl, yl：PRINT bl$ j 
340 El: RETURN 
350 * 

360 ’Nunihcr 2 

370 DI：LOCATE x2, y2:PRINT “” 

380 x2 = x2 + dx2 
390 y2 =y2 + dy2 

400 IF x2 > 39 OR x2 〈 2 THEN dx2 = - dx2 

410 IF y2>22 OR y2 2 T^EN dy2 = -dy2 

420 LOCATE x2, y2 .PRINT b2 $ ; 

430 EI:RETURN 

这个程序中使用了两个 S 要的中断命令： DI 和 El。DI 
为关闭中断，当你想使一段程序不被中断时，使用这个命令 
并且把它做为这段程序的第一条指令。 EI 为开放中断，用 
于把关闭中断状态恢复为允许中断状态。 
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定时器优先权 

由于4个计时器都可发中断请求，它们之间的互相影响 
讨产生一些问题，因此，系统要登记这些请求，并决定先响 
应哪一个。事实上，有一个中断请求队列，所有发出的请 
术，都要加入这+队列中。对于每个诮求有不同的优先权， 

»导计时器有最高的优先权。如果三个计时器的中断请求同 
时到达，则敁先响应3号计时器的请求。0号计时器有最低 
的优先权，其人是1号、2号计时器》 

优先权系统 叫产乩 一些问题。 例如： 如果把跳数子程序 
屮1号或2号计数器的间隔速率设为较低的值，则没有时间 
去响应0号计数器的屮断播求了。 

可以用 ESC 键衣演排队。按 ESC 产生一个必要中 
断，程序暂停，直到按了另一个鍵。如果第二次也按了 ESC 
键，则程序不执行，控制返回到直接方式《但是，时间 
定数器不象这个中断，因此中断谙求可一直发出，即使程序 
巳明 M 的停止了。 

试运行下面的程序 r 你 将爵到 ，1号计时器以1秒为间 
隔记数，2号计时器以两秒为间闷 计数。 按 ESC 键暂停这个 
程序，儿秒钟以后再按空格键，则两个计时器间步较好 。姐 
果你使程序暂(亭儿分钟,则只接收2号计时器的 中断: 

JO CLS 

20 EVERY 50, 1 GOSUB 1000 

30 every 100 , 2 gosub 2000 

40 GOTO 40 

1000 couiiti = countl + 1 

1010 LOCATE 1, l « PRINT“Timer 1” , countl ; 


ldo 



1020 RETURN 

2000 count2 =count2 +2 

2010 LOCATE. 1, .2:PRINT “Timer 2”., count2 
2020 RETURN 

当使甩 EVERY 时，你必须仔细检査中断驱动子程序 
要处理多长时间，如果所花的时间大于中断的间隔，则可能 
产生问题。 

有两个利用计时器显示时间的方法：从某一点计时或做 
为一个时钟。后者需要用户在程序中键入某一点的时间，下 
面是 ^ 个计时子程序 t 
10 count = TIME 
20 CLS 

30 EVERY 50, 3 GOSUB 10000 
40 GOTO 40 
50 ， 

9999 ’Clock subroutine 

10000 counts = TIME — const 

10010 seconds =ROUND(counts/300) 

10020 minutes = ROUND(seconds/60) 

1C0S0 hcurs ^RCUND(s€Conds/3600) 

10040 seconds = seconds MOD 60 
10050 minutes =minutes MOD 60 
10060 hours = hours MOD 24 
10070 second $ = STR $ ( seconds ) 

10080 minute $ = STR $ (niintftes) 

10090 hours? =STR $(hours) 
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10100 second $ = RIGHT(second $, 2) 

10110 minute $ = RIGHT $ (second $ , 2) 

10120 hour$ = RIGHT $<hour $, 2) 

10130 LOCATE 1, I 

10140 PRINT hour $ I i minute $ j h ” f - 

second $ j 
10150 RETURN 
下面是一个数字时钟子程序： 

10 DEF FN striP $( anyvar )= RIGHT$(STR $ 
( anyvar ), 2) 

20 CLS 

30 INPUT “Hours = ”， hrs 
40 INPUT “Minutes = ”，mins 
50 INPUT “Seconds = ”， secs 
60 EVERY 50, 3 GOSUB 10010 
70 CLS 
80 GOTO 80 
90 f 

10000 ，Time Update 
10010 DI f secs =secs + 1 

10020 IF secs >59 THEN secs =0 :mins = m》ns + 

10030 IF mins >59 THEN mins = 0 *hrs = hrs-fl 

10040 IF hrs >23 THEN hrs =0 

10050 LOCATE 1, 1 

10060 PRINT FN striP $( hrs ), “•” t 

10070 PRINT FN strip $ ( mins ); , 
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10080 PRINT FN striP $( secs ), 
10090 EIsRETURN 


AFTER 

AFTER 是另一个中断命令，但它不如 EVERY T \ 
用。 AFTER 指示在指定定时器计 了-定 的数后执行某一 
子程序。 AFTER 姑一 : .性命令， M / i 遇到这个命令时，相 
应的定时器置0,与这个定时器有关的任何其它中断都被取 
消，当到达所规定的间隔时，则执行指定的子程序 。 AFTER 
和 EVERY 都专用指定的定財器， KVERY 也象 AFTER 
一样，取消对一个定时器的其它中断命令。下而的例子说明 
怎样使 AFTER EVERY - •样起作用： 

10 REM AFTER Demo 
20 CLS 

30 REM Subroutines which reset 
40 ’themselves 

50 AFTER 50， 1 GOSUB 1000 
60 AFTER 100, 2 GOSUB 2000 
70 GOTO 70 
10 9 

1000. PRINT “Subroutine 1” 

1010 AFTER 50, 1 GOSUB 1000 
1020 RETURN 
1030 J 

2000 PRINT TAB (5 )i “Subroutine 2” 

2010 AFTER 100, 2 GOSUB 2000 
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2020 RETURN 


ON BREAK GOSUB 

象上面说明的一样， ESC 键象一个髙优先权中断•按 
两次 ESC 键程序将停止并使控制回到直接方式。但是 ON 
BREAK GOSUB 允许你在用户试图中断程序时转到你自 
己的子程序。你可使用这个指4=来保护你的程序，不被任何 
人停止，列出或改变。它也可做为瞬时“帮助”工具/可在 
程序中的任意处 U / 问之。下而是“不可中断”程序的基本原 
理： 

10 ON BREAK GOSUB 10000 
15 ON ERROR GOTO 10000 
20 REM Rest of Program 
30 REM 
9000 GOTO 20 
10000 RETURN 

为了在屏縣上显示‘帮助％你需要做的是：当按两次 
ESC 键时，把控制转移到子程序的“帮助”部分 • 为此， 
你必须知道中断发生在什么地方，因此你必须在一个变量中 
保存操作的轨迹，例如： 

10 ON BREAK GOSUB 1.0000 

20 REM Main Program 

30 REM Menu for operations selection 

1000 REM End of main section 

3000 REM Invoice section 

3010 Place $ = “ invoice ” 
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3020 REM Re^t of invoicing routine 

3990 RETURN 

3999 REM End of invoices 

10000 REM HELP 

10010 IF Place $ = “invoice” THEN GOSUB 1100 
10020 IF Place $ = “receipt” THEN GOSUB 1200 
10030 REM Rest of HelP screens 
10040 RETURN 

11000 MODE 1»LOCATE U 1«PRINT “Help on 

Invoicing” 

11010 REM Rest of helP info 
11090 RETURN 

为了研究程序，你吋使用 ON BREAK 跳到显示变量 
值的子程序： 

10 ON BREAK GOSUB 10000 
20 REM Rest of Program 

9999 END 

10000 PRINT “Length of string , LEN 
(words $ ) 

10010 PRINT “count =” > count 
10020 JpRINT ^Press space to continue* 

10025 akey $ = 

10030 WHILE akey$ > CHR$ (32) 

10040 akey $ = INKEY $ 

10050 WEND 
10060 RETURN 
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同样，你可使用 ON BREAK 退出一个麻烦的状态。 
例如， 你用命令 SPEED KEY 1, 1把键设成了快速重复 
状态，你将发现：如果你按两次 ESC 键中断程序，则键 
盘变得不好用了。键重复得太快以至不可能键入命令来恢复 
正常。为了使键的重复值置为默认值，我们把 ESC , ESC 
移到-•个子程序，这个子程序经过 ROM 调用重新设置重 
复值并且没有 RETURN , 这样程序便不再执行并返回到直 
接 方式： 

10 ON BREAK GUSUB 10000 

20 SPEED KEY 1, 1 

30 REM Rest of Program 

9999 REM 

10000 CALL & BB 00 

你也可使机器关掉而结束程序，即使 CTRL SH 1 TF 
ESC 不能 fi 新引导。为此可使用 POKE 48622, 201，时 
POKE 48622，195使机器能重新引导。 ESC 可用 CALL 
4 7947使之 无效. 


ON ERROR GOTO 

UN ERROR 非常象 ON BREAK , 如 果产生错误， 
此命令使程序跳到一个给定的行号 》 在上面的例 子中， 你也 
可增加指令‘15 ON ERROR GOTO 10000,这样使产生 
格式错时，把键盘处理复位为 正常。 

RESUME 

ON ERROR GOTO 有一个配对的命令，就是 RESUM , 
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RESUM 后面可跟一个行号或 NEXT 。 如果你在程序中先 
使用了一个 ON ERROR GOTO , 当产生错误时，程序将 
跳到 GOTO 后的行号。在这个行号处，你可设一段错误处 
理操作并在结尾放一个 RESUME NEXT 命令。这样可 
使控制转回到产生错误语句的后一个语句。你也可把控制转 
到一规定的行号 ，如 ： RESUME 5500。 


ERR 和 ERL 

ERR 回送错误号。 ERL 回送出现错误的行号 。 ERR 
和 ERL 是系统变盘，也足数字变 fi ， 因此你可写持定的错 
误处理程序来改正钇误而不使程序停止。例如，你可报告错 
误类型和错误码， M 不必淖止程序： 

10 ON ERROR GOTO 10000 
20 REM Rest Program 

9999 END 

10000 PRINT “ ERROR ” , ERR I “In lime ，，： 
ERL 

10010 RESUME NEXT 

如果你正在从磁带文件中淡内容并且遇到一个 * EOF 
met ’ 错误，则下面的程序可解决 问题： 

10000 IF ERR =24 THEN CLOSE«PRINT 
“Unexpected end of file in line ” ！ ERL 
10010 CLOSE：RESUME NEXT 
你也可使用 ON 来把控制转移到 错译处 理子程序的行 
号 ，和： ON ERR GOSUB 1000，2002， 2500. 
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REMALIN 


REMAIN 用于回送定时器中的计数并且关闭定时器 
中断诘求。它的用法如 ‘dummy = REMAIN ( iO ，。 括号中 
的数必须是整数并 II 是4个计时器之一：； REMAIN 回送给 
定时器的时间值并把这个定时 器置为 0。你可使用这个命 
令来关闭来 S — 个定时器的中断。你也可用这个命令测试一 
个定时器计数到何处，后对那个定时器复位中断间隔或把 
一个新值賦给那个计时器。如果一个定时器是不讨用的（即 
没对那个计时器进行屮断分配)，则 REMAIN 回送 C 。 
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